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FOREWORD 

This user's manual is a supplement to "Solid Rocket Booster Thermal 
Radiation Model - Volume''!- Final Report," LMSC-HREC TR D496763-I. 
This manual was prepared by personnel of the Thermal & Fluid Physics 
Group, Engineering Sciences Section, of the Lockheed -Huntsville Research 
& Engineering Center under Contract NASS- 31310. The contract period of 
performance was from 20 January 1975 through 20 March 1976. The work 
was administered under the technical direction of Mr. William C. Claunch 
of the Structures and Propulsion Laboratory, NASA- Mar shall Space Flight 
Center. 
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1. STRUCTURE OF THE PROGRAM 


The SRB plume thermal radiation program is stored on a magnetic tape 
which was created by a Univac 1108 7-track tape drive. There are two entry 
points corresponding to the two main programs, on the tape. Themain pro- 

i / 

gram, MAINS, deals with a single plume, which was used during the phases 
of development and checkout and for making the data tapes. The second main 
program, MAIN, computes the heating rate due to dual plume configuration and 
view factor calculation. Many subroutines on the tape are common to both 
MAINS and MAIN programs. In its logical structure, the MAINS program is 
the same as the MAIN program, minus the ICALC = 2 option, which calculates 
the view factors. The logical structure of MAIN program is shown in Chart 1. 


The entire code consists of 2 main programs, 24 subroutines, 1 PROC 
and 3 elements. The relations between the main programs and the subroutines 
are summarized in Table 1. The PROC defines dimension stat ements which 
are used in the COMMON blocks. They are inserted in the program by using’ 
an INCLUDE statement. The elements are used to list the entire program, to 
compile the program elements when the array sizes are changed and to punch 
the program deck. More about these elements is discussed in Section 4. 
where the run characteristics are concerned. 
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Table 1 


RELATIONS BETWEEN MAIN PROGRAMS AND SUBROUTINES 


Subroutine 

Single Plume 
(MAINS) 
Heating Rate 

Dual Plume 
(MAIN) 

Heating Rate 
ICALC = 1 

View Factor 
ICALC = 2 

DIMENS (PROG) 

X 

X 

X 

ATTEN 

X 

X 


CHOSE 

X 

X 

X 

DIFVDC 



X 

DISK 

X 

X 

X 

EMITT 

X 

X 


ESCAP 


X 


ESCAPE 

X 



FRTAPE 

X 

X 


INPUT 

X 

X 


INTRCP 


X 


lOPKT 

X 

X 


OUTPUT 

X 

X 


PING E A 

X 

X 

X 

PINGEB 

X 

X 

X 

QUADEQ 

X 

X 

X 

QUICKP 


X 


SCATTR 

X 

X 


SORTNG 

X 

X 

X 

SPHERE 

X 

X 


TARGET 

X 

X 

X 

TRANSF 


X 

X 

VFEMIT 



X 

VFOUTP 



X 

ZCOORD 

X 

X 



"x" indicates the requirement of the subroutine. 
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2. INPUT GUIDE 

The input cards for the program can be organized into five groups. 

Each group of input cards is read by a program element, i.e., either the main 
program or a subroutine, except as noted. Table 2 summarizes the input 
card groups . 


Table 2 

INPUT CARD GROUPS 


Input Card 
Group 

Incurred by 

Single Plume 
Heating Rate 

Dual Plume 

Heating Rate 

View Factor 

1 

MAIN 


X 

X 

2 

TARGET 

X 

X 

X 

3 

INPUT 

X 

X 


4 

FRTAPE 

X 

X 


* 

5 

VFEMIT 



X 


The first card reading NRAY and NSTART is requested in the MAIN program, 
"x" indicates the requirement of the data card group. 


As is apparent in Table 2, not all the five groups of input cards are 
required in a data card ensemble. The single plume heating rate calcu- 
lation, for example, requires the input cards only from groups 2, 3 and 4. 
Preparation of input cards for each group will be discussed in detail in the 
following paragraphs. 
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2.1 INPUT CARD GROUP 1 

This group is required in the MAIN program and consists of two cards: 

Card 1: (18) ICALC 

Card 2: (10F8.0) ((PP(I, J), J = 1, 3), SIG(I), PSI(I), 1 = 1,2) 

ICALC indicates if this run is for view factor calculation in which case 
ICALC = 2 or for heating rate calculation in which case ICALC can be any 
value other than 2. It is suggested that ICALC = 1 be used to- indicate heating 
rate calculation. When the view factor calculation is intended (where ICALC = 2), 
the card 2 is omitted. The input format is indicated in parentheses. 

The card 2 reads the basic coordinate systems of the dual plumes. 

(PP(1, 1), PP(1, 2), PP(1, 3)) kre the (XI, X2, X3) coordinates of the center of 
the exit plane of the first plume with respect to the central coordinate system. 
SIG(l) and PSI(l) is the a and ijj angles of the axis of the plume. (PP(2, 1), 

PP(2, 2), PP(2, 3)), SIG(2), PSI(2) are the corresponding values for the second 
plxime. The coordinate system is shown in Pig. 1. The central coordinate 
system is centered at the mid point between the two ungimb aled plume exit 
planes. The coordinate systems (XI', X2', X3') and (XI", X2", X3") are the 
local coordinates aligned with the first and second plume, respectively. All 
distances are non-dimensionalized with respect to nozzle radius at the exit 
plane. 

2.2 INPUT CARD GROUP 2 

This group, which is read by calling TARGET subroutine in all calcu- 
lation cases, describes the target geometry. There is really no limit as to 
how many target surfaces can be considered in the calculation. However, 
in the present setup of the program array dimensions, the number of target 
surfaces is not to exceed 10. Each target surface is described by a set of 
two cards, described as follows: 


RIIPRODUCIBILITY OF THE 
ORIGINAL PAGE m -P0€^ 
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Card 1: (5 14, 4X, 7F8'.0) IPTION, NNl, NN2,NRING1, NRING2, 

RADISK, RCPl, RCP2, RADISU 

Card 2: (9F8.0) XIO, X20, X30, X40, X50, X60, X70, X80, X90 

This group of cards is ended by. adding a blank card following the second card 
of the last set. All lengths are in non-dimensional units. 


IPTION, 


NNl 

NN2 

NRING 1 

NRING2 

RADISK 


RCPl 


RCP2 

RADISU: 

X10,X20,X30 

X40,X50,X60 

X70,X80,X90 


target surface code 

IPTION = 1, Cylinder; 2, Frustum; 3 , Para- 
boloid; 4, Ellipsoid, 5, Parallelogram; 6, Annular 
Disk 

number of view points along arc length, or along 
P1-P2 line in parallelogram case 

number of view points along axial direction, or 
along P2-P3 line in parallelogram case, or along 
the radial direction in disk case 

number of view point areas along radial direction 
on the constraint disk passing through the point PI. 
This is applicable to cylinder and frustum only. 

Same as above except for the constraint plane 
passing through the point P2. This is applicable 
to cylinder,- frustum and paraboloid only. 

radius of the constraint disk passing the point P2 
for the cases of cylinder, frustum and paraboloid; 
the outer radius in the case of annular disk; not 
applicable in the cases of ellipsoid or parallelogram 

radius of the inner radius on the constraint disk 
passing thror^h point PI. This is applicable to 
cylinder and frustum. In the case of annular disk, 
RCPl is the inner radius of the disk. 

radius of the inner radius on the constraint disk 
passing through point P2, This is applicable to 
cylinder, frustum and paraboloid. 

radius of the constraint disk passing through PI 
for the case of frustum only 

the (X1,X2,X3) coordinates of point PI 

the coordinates of P2 

the coordinates of P3, except the annular disk case 
where (X70, X80, X90) are the outward normal vector 
components 


The designations of PI, P2 and P3 are summarized in Table 3. 
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Table 3 

DESIGNATIONS OF POINTS Pj, P^ AND P^ 


IPTION Shape 

Pi 

(X10,X20,X30) 

P 2 

(X40,X50,X60) 

P 3 

CX70,X80,X90) 

I 

Cylinder 

Center of 
the Top 

Center of 
the Base 

An Arbitrary 
Point not on 
the Axis 

Z 

F rustum 

3 

Paraboloid 

The Vertex 

4 

Ellipsoid 

Center of 
the Body 

The Pole 

At the Zero 
Meridian 

5 

Parallelogram 

The points P^, P^, P 3 are the three consecutive 

corners of the plane, clockwise on the plane, 
looking in the direction of the negative normal. 

6 

Annular Disk 

Center of 
the Disk 

On the rim 
of the disk. 
Pj^-P^ forms 

the line from 
which the view 
vectors count 
in right-hand 
rule sense 
with its 
normal. 

P^ repre- 
sents the unit 
normal vector 
of the disk 
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2.3 INPUT CARD GROUP 3 


This group is read by INPUT subroutine. The first card of this group 
carries some control parameters. 


Card 1: (718, F8.0) IX, JX, IRGN, JRGN, NSTART, ISO, IPLUME, REX 


IX, JX 


IRGN, JRGN 

NSTART 

ISO 


I PLUME 
= 1 

= 2 
= 3 


= 4 


REX 


printout control parameters. The results of 
heating rate computations will be printed (IX) 
times at (JX) sample increments, i.e., IX = 3, 

JX = 2000, the results will be printed out 3 
times when 2000, 4000 and 6000 samples are 
generated, respectively. 

number of regions the plume body is divided in 
longitudinal and radial directions, respectively 

a starting random number, any six-digit integer 

use 0. to indicate if isotropic scattering is de- 
sired; use 1 to indicate anisotropic scattering. 

In latter case, cards 7 and 8 of this group are 
required. 

rim options 

to compute the heating rate on target surfaces, 
card 6 in this group is omitted in this case. 

to compute the heating rate on target surface. 

The plume is defined by QUICKP subroutine, 
cards 2, 3,4 and 5 are omitted in this case. 

interception of target surface is not tested (there- 
fore the Input Card Group 2 needs only a blank card); 
trajectories of the photons are recorded in a data 
tape (when this option is used, a cataloged tape 
must be assigned to Unit 10). The output tape can 
then be used with IPLUME = 4 option. 


the trajectories of the photons are read from an 
input data tape which must be assigned to Unit 10 
at the start of the run. In this case, cards 2 through 
8 are omitted. 

the radius of the exit plane in physical units (cm). 
For the standard SRB REX = 185 cm (6.07 ft). 
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Card 2: (FIO.O) GAMMA 

Card 2 is repeated (JRGN) times. Each GAMMA 
is the half cone angle of the concentric conic 
division within the plume. 

Card 3: (FIO.O) HZ(I) 

Card 4: (6F10.0) (PROP(K,I, J), K = 1,6) 

Card 5: (6F10.0) (PROP(K, I, J), K = 7,10) 


HZ (I) is the longitudinal division of the plume body, 
PROP(K, I, J) is the property of the plume in the 
longitudinal division and radial division. The 
index K defines the plume property as shown in 
Table 4. 


Table 4 

DEFINITION OF PROP(K, I, J) ARRAY 


K 

Plume Property 

1 

3 

Af^iO^ Particle Number Density, N (parts/ft ) 

2 

■^^2^3 Temperature, T^ (R) 

3 

A^z^s Particle Radius, (ft) 

4 

N r^ (parts/ft) 

5 

Gas Temperature, T^ (R) 

6 

Gas Pressure, P^ (Ib/ft^) 

7 

Mole Fraction for CO 

8 

Mole Fraction for COz 

9 

Mole Fraction for HzO 

10 

Mole F raction for HCl 
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Cards 3, 4 and 5 are in a loop and are repeated 
(IRON + 1) times; cards 4 and 5 are in an inner 
loop, repeating ( JRGN + 1) times . 

Cards 2 to 5 are put together as a package as the 
result of a plume flow field computation. 


Card 6: (4F10.0) PC, FAME, TC, XK 

This card is used only when IPEUME = 2 

PC pressure in the combustion chamber (Ib/ft ) 

2 

PAMB ambient pressure (Ib/ft ) 

TC combustion chamber temperature (R) 

XK polytropic exponent 


Card 7; (5F 10.0) SA, SB, SC, SD, SE 

Card 8: (5F 10.0) SF , SG, SH, SI, S J 

Cards 7 and 8 are required only when anisotropic 
scattering option {ISO = l) is used. The quantities 
SA, SB, . . . etc., define linear segments of the 
scattering distribution curve. 

As an example, a set of the values of SA, SB, etc., 
are given below. 


SA 

SB 

SC 

SD 

SE 1 

SF 

SG 

SH 1 

SI 1 

SJ 

4.0 

15.0 

80.0 

160.0 

175.0 

0.2 

4.0 

15.0 i 

4 '.2 

160.0 


2.4 INPUT CARD GROUP 4 

This group consists of only one data card and is read in FRTAPE 
subroutine only when IPLUM =4 option is used. 

Card 1: (318, 4F8.0) KEY, ITG, NTRAJ, DELPHI, TX, TY, TZ 

KEY control parameter 

= 1 compute the heating rate for the entire 

geometry ensemble 


" " REPRODUCIBILITY OF THE 

ORIGINAL PAGE IS POOR 
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= 2 

= 3 
= 4 

= 0 
= -1 


ITG 

NTRAJ 

DELPHI 


TX, TY, TZ 


for a single target surrounding the plumes, 
in this case DELPHI = 2?r 

single small target within DELPHI 

single small target, using cosine projection to 
compute the heating rate 

terminate the run 

to tabulate the distribution of the sample trajectories 
on the data tape in increments of ^ , rj, 0 and XI 

the identity of the target surface of which the heating 
rate is to be computed. This parameter is used in 
KEY = 3 and 4 cases. 

number of the trajectories to be read from the data 
tape 

the angle subtended by the target surface as viewed 
from the origin point of the coordinate system. This 
parameter is used in KEY =3 and 4 cases. 

the center location of the target surface or the inter- 
section point of the centerline of the DELPHI cone 
and the target surface. These points are used in 
KEY =3 and 4 cases. 


2.5 INPUT CARD GROUP 5 

This group consists of 3 cards. 

Card 1; (218) NRAY.NSTART 

NRAY number of sample sizes used to calculate the view 

factor 

NSTART a starting random number, any six -digit integer 


Card 2: (18) lEMIT 


lEMIT 

= 1 
= 2 
^ 3 
= 4 
= 5 
= 6 


the identifying code of the emitting surface 

half cylinder 

half frustum 

not used 

hemisphere 

parallelogram 

annular disk 
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= 7 

full cylinder 

= 8 

full frustum 

= 9 

sphere 


Card 3: (10F8.0) 

This card reads 10 non-dimensional quantities to define the emitting 
surface. They are summarized in Table 5. 
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Table 5 

DESCRIPTION OF THE EMITTING SURFACES 


lEMIT 


**1 

^2 

Pj or DC 

1 

Half Cylinder 

Radius of 
the cylinder 

Center of 
the top 

Center of 
the bottom 

Normal at 
mid ai*c 

2 

Half F rustum 

Radius of 
the top 

Center of 
the top 

Center of 
the bottom 

Mid arc point 
of the bottom 

3 

Not Used 





4 

Hemisphere 

Radius of 
the sphere 

Center of 
the sphere 

Normal at the 
center of the 
surface 


5 

Parallelogram 


Pf, P^, P^ 3-^6 three consecutive corners of . 

the plane in counterclockwise direction around 
the normal. 

6 

Annular Disk 

Inner radius 
of the disk 

Center of 
the disk 

A point on the 
outer periphery 

Normal of 
the disk 

7 

Full Cylinder 

Radius of 
the cylinder 

Center of 
the fop 

Center of the 
bottom 

Normal at an 
arbitrary point 
on the surface 

8 

Full Frustum 

Radius of 
the sphere 

Center of 
the top 

Center of the 
bottom 

A point on the 
periphery on 
the bottom 

9 

Sphere 

Radius of 
the sphere 

Center of 
the sphere 
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3. EXAMPLES OF INPUT CARDS AND OUTPUT PRINTOUT 
Three complete run decks listed on pages 16 through 21 show the input 

cards. 


The first deck is an IPLUME = 1 case for the dual plume heating rate 
computation. The complete deck that defines a sea level plume with after- 
burning is included in the listing. This deck is generated from the Lockheed 
plume flowfield program. The listing actually shows the particle number . 
density, N, (PROP{l,I, J)) in units of P/ft^ x 10 In the IPLUME = 1, 2 and 
3 cases, the INPUT subroutine, where the Input Card Group 3 is read, is 
called again to input the next case provided there are no changes in the target 
geometries. A blank card following last input card will terminate the run. 

The second deck is an IPLUME =4 case for the single plume heating 
rate computation where an input data tape assigned to unit 10 is used. The 
last data card can be repeated as many times as the case may be, A blank 
card following the last data card terminates- the run. 

The third deck is an example of calculating the view factors. The data 
cards read as Input Card Group 5 can be repeated as many times as desired 
to compute the view factors on a set of target surfaces from different emitting 
surfaces. A blank card following the last data card terminates the run. 
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RADIAT* IHnI oVA‘;>1053*LEli-ALBINi?0^i 19i 1 bO 
' Abu.T TAPLl ^Ti Ibplb 
•RL*;iNU TAPtl 
' COPYiO TAPL I »TPh'i. 

•FPpL TAP1_1 
* S£TC» I 
•MAP» Ib 
IN main 

Lib SYSS-«-MSFCS. 


XUT 

.0 

1 

3.4315 0,0 

0 .0 

0.0 0.0 

3.4315 

0.0 

0.0 

0 «0 

b 

. 0 

12 

8 0 0 
6.0 -4.0 

- 0.0 

6.0 -4.0 

0.0 

6.0 

4,0 



y 

5000 

14 

5 12p456 

0 

1 185.0 




1 

3.4 
3 « p 
4.6 
6 « 0 
.0 


,2571 

4078. 

.196 

.0988 

3729. 

1302. 

. 1 603 

.248F 

.0275 

. 1537 



,27 

4077. 

. 1957 

. 1034 

3752. 

1400. 

. 1 604 

.2484 

.0274 

.1527 



.297 1 

408 1 . 

. 1952 

,1132 

3802. 

16^:9. 

.1606 

.24 87 

.027 

.1539 



1 

4085, 

. 195 

. 12 

3849. 

1918. 

« 1 6oy 

.249 

.0267 

. 1 538 



, jy 

4080. 

.196 

.144 

3883. 

2175. 

,1612 

.2492 

.0265 

. 1538 



.2675 

237 1 , 

. 1033 

.03 

3523. 

1835. 

.16 

.2469 

.0297 

.1508 



a 4 

.2571 

40 /"Y.y 

. 196 

.0988 

3729. 

1302, 

. 1 603 

.2483 

,0275 

. 1537 



. 2 /■ 

40 fSo 

. 196 

. 1034 

3752. 

1400. 

. 1 604 

.2484 

.0274 

. 1538 



.29 f 

4082. 

• 195 

.113 

3802. 

1629. 

a 1 606 

.24 88 

,0268 

. 1538 



.21 

4085, 

. 195 

. 12 

3849, 

1918. 

. 1 609 

.249 

.0267 

. 1538 



.29 

4080. 

.196 

a 144 

4000. 

2026. 

,1612 

.2492 

. 0265 

. 1538 



.268 

23 /'I . 

,103 

.03 

1522. 

2028. 

.035 

0.001 

,02 

.0096 



. 8 

.2571 

4078, 

, 196 

.0988 

3814, 

1364. 

0 1 604 

.2486 

.0269 

. 1543 



.27 

40 /'6, 

. 196 

.1024 

3804. 

1391 , 

» 1 604 

.2486 

,027 

.1542 ■ 



.297 

•HUa-4 a 

,195 

.113 

5804. 

1492. 

. 1 6o5 

.2487 

,02 / 

.154 



eO 1 

4085, 

. 195 

.12 

3812. 

1634. 

. 1 606 

.2487 

,027 

. 1539 



.29 

4080. 

. 196 

. 144 

4079. 

2029. 

.1469 

.22 5 

.0231 

.1518 





“ ■ 
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. 2t>b 

887 1 , 

. 103 

. 1 ^ 

• 1 

.04 

1 • b 
• (--Ji ! 

40 /'8, 

, 196 

> 1 t)Ub 

• 8<4 80 

. 0265 

^ e-l ( 

40 /6, 

. 196 

• 1 bOL) 

.24 88 

a 0266 

.^9 / 

4082 . 

.16 

. 1 605 

.24 87 

.0269 

. J1 

4085, 

.195 

. 1 foUb 

.2482 

.0277 

• bV 

4080. 

. 196 

. 1 554 

.2157 

.0251 

.268 

337 1 . 

.103 

0 18 

. 1 

,05 

2. 18 
• i:;b7 

4078. 

. 196 

• 1 604 

.2487 

.0267 

.27 

4076. 

. 1 96 

o 1 602 

.2485 

.0272 

.297 

4082. 

. 195 

.16 

.248 

.0279 

.81 

4085, 

,195 

.1601 

.248 

.0275 

.37 

4082, 

. 196 

.1607 

.249 

.0262 

O ^ 

3870, 

.06 

. 1 746 

.007 

.0989 

2.49 

.23 

4070. 

, 196 

. 1 6 

.2482 

.0275 

.25 

4075. 

, 196 

. 1 6 

.248 

,0278 

.275 

4080. 

. 196 

• 1599 

.248 

,0278 

.83 

4080, 

, 195 

. 1 604 

,2487 

.0268 

.82 

4080. 

,194 

.18 ■ 

.2 

.04 

.09 

4000. 

e 1 

. 1 S 

.0 1 

0 1 

2.89 

and. 

4080, 

. 196 

. 1 594 

.24 /4 

.0286 

. 28 

4080. 

,196 

. 1 596 

o 2476 

.028 

.26 

4080, 

. 196 

.1601 

.2484 

,0273 

.815 

4080. 

. 195 

- 1607 

.2492 

.026 

. 805 

4080, 

. 194 

• «cl80 

.1221 

.0554 

.05 

3500 . 

, 1 

. 2 

.01 

,09 

8.22 
.2 1 

8900, 

,190 


o 1 sVi; »d.^( «0289 

/:do » 1 95 


03 

08 

4000. 

2029. 

0988 

887o » 

1416. 

154 7 



1 0 J4 
1 540 

385 1 . 

14 11. 

1 55 
1544 

8804 . 

1895. 

12 

15o8 

3697. 

1 268 . 

144 
1 469 

4127. 

0229, 

03 

4000. 

2029. 

08 

' 


0988 

1548 

3884. 

1272. 

1084 

1546 

3775, 

1 195. 

1 13 

3685. 

1080. 

154 



.12 

.1541 

3700. 

1 130. 

14 

1547 

8909, 

1 626. 

.01 

.0562 

4179. 

2029, 

.098 

1546 

3718. 

1034. 

1 05 
1543 

3686. 

1011. 

12 

.1542 

3685 e 

1041. 

. 14 
» 1546 

3822. 

1 348 . 

. 135 
e 13 

4000, 

1800, 

.07 

.06 

4200. 

2029. 

.097 
. 1537 

3611. 

849. 

® 1 

.1541 

3636. 

909. 

. 1 1 
. 1546 

3770. 

1 170. 

. 13 
. 1549 

3930. 

1600. 

« 125 
. 1057 

4323. 

2029. 

.03 

.06 

4000. 

2029. 

.075 

358 1 . 

785, 

. 1534 

' 


. 1 

3700. 

976. 
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RBPRODUCIBILrrY OF THE 
ORIGINAL PAGE IS POOR 



LMSC-HREC TR D496763-II 


• ifc> 

.348 

.02 77 

. 1545 



o cy 

4000. 

, 195 

. 1 1 

3870. 

1471. 

• lOUO 

.3<^y 

.0262 

. 1549 



• O 1 

4u3U. 

.196 

.115 

4000. 

1824. 

• I ouy 

.3‘+yo 

• 03bb 

. 1 55 1 



• o 

by /u . 

e 1 

• 135 

4340. 

2029. 

• HI jy 

. 1 ly 

.0568 

• 1043 



• I 

JH^UU . 

. 1 

.02 

4000. 

2029. 

• layy 

»0 1 b7 

.1015 

.0632 



e> 






• HI 

jobo . 

. 19 

.07 

3775. 

■ 1044. 

• 1 OU Jl 

.3‘T84 

.0371 

.1549 



o ^ JO 

byuu. 

. 195 

.09 

3920. 

1400. 

• ifeOb 

.349 

.036 

. 155 



<• HU 

4000. 

. 195 

. 1 

4003. 

1730. 

« i e>uo 

.3494 

.0356 

.1551 



» JOVb 

40b0. 

. 195 

. 1 1 

4055, 

1940. 

. ifol 

.3b 

,0252 

. 1552 



• d. / 

3850. 

.19 

. 12 

4357. 

2029. 

.4Jlbl 

.114 

.06 

. 1024 



• Ob 

3500. 

, 1 

.005 

2858, 

2029. 

. uyob 

.OOOl 

.05 

.03 



4.37 






.31 

3900. 

. 185 

.072 

4304. 

2371 . 

. 1 607 

.2501 

• b238 

. 1549 



• dS 

3940. 

. 165' 

*09 

4130. 

1975. 

.1611 

.25 

.0246 

.1555 



• d f 

4000, 

. 186 

• 1 

4080, 

1990. 

.161 

.3498 

.025 

. 1 552 



.3yb 

3900, 

, 186 

• 1 

4150, 

2050. 

.16 

.2 

,032 

. 135 



.001 

4000, 

.15 

.000 1 

4370. 

2029. 

.3 1 

.05 

.08 

.075 



.0000 1 

4000, 

,05 

.000001 

3156. 

2029. 

« 1 065 

.00002 

.063 

.0367 



4.69 






O 

4319, 

. 179 

. 15 

4444 • 

3544. 

. 16 

.2501 

.0235 

.1539 



. 445 

4177. 

.181 

. 147 

4385, 

3300, 

. 1607 

.2502 

.0236 

. 1543 



. jy 

4175, 

,185 

. 133 

4209. 

2469, 

.1613 

.2503 

.0242 

• 1553 



. Ob 

4000. 

. 18 

. 1 

4190. 

2029. 

. 1997 

® 1 534 

.044 

« 12 



.000001 

3000. 

.01 

.000001 

4000. 

2029, 

. 15 

.005 

.085 

.05 



.000001 

3000. 

.01 

.00000 1 

3000. 

2029. 

.08 

.ooocl 

o 0 4 

.025 



6.49 






.4981 

4264, 

. 185 

. 17 

4260. 

2973. 

.1613 

.2502 

.0242 

■ .1545 



.-<18 

4300, 

. 186 

• 1 68 

4197, 

293 1 . 

.1616 

.2503 

.0244 

• 1548 



• 06b 

4 1 Tb, 

. 186 

. 133 

4183. 

2692. 

. 1 D1 D 

.3503 

.0243 

• 1553 



» iC J<4 

30UU o 

.191 

.085 

443b, 

2029. 

• di od 

• 0086 

• U 709 

.0923 



.uuuuui 

4UU0, 

.01 

.00000 1 

368 1 , 

2029. 
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. 1 / 

.0006 

.06 

*0444 



.000001 

3000 . 

.01 

.00000 1 

2503 . 

2029 . 

. 035 ^ 

.00001 

.0069 

.0004 



b .33 






.3 ! 

41 / 1 , 

.191 

.133 

4011 . 

1666 . 

.1613 

. 34 y 7 

,0335 

. 1540 



.33 

417 1 , 

. 191 

. 1 36 

3979 . 

1 669 . 

.161 

.3407 

.0357 

. 1546 



.33 

413 y , 

. 169 

.113 

40 10 . 

1695 . 

. 1 6 oy 

.3406 

.0335 

. 15 b 



.333 

3000 . 

. 1695 

.083 

4400 . 

2029 . 

.3 13 

• 1 

.07 

.09 



. OOOOOl ’ 

3000 . 

.01 

.00000 1 

3900 . 

2029 . 

. 15 

.005 

.063 

.05 



.000001 

3000 . 

.0 1 

.00000 1 

2700 . 

2039 . 

.07 

•ooool 

.04 

.025 



y . ly 






.33 

41 / 1 , 

.19 

. 133 

3943 . 

1493 . 

. 160 / 

.3402 

.036 

. 1549 



.33 

41 / O . 

.19 

. 123 

394 3 . 

1 564 « 

. 1 6 U /" 

.3492 

.026 

. 155 



• 3 i 

4130 . 

, 19 

* 153 

4100 . 

2000 . 

. 3U33 

• 1461 

.0453 

.1166 



• 33 

4000 . 

. 16 

.085 

4466 . 

2029 . 

.3 1/3 

.0 /33 

,0 79 

.086 



.OOOOOl 

3000 . 

,01 

.OOOOO 1 

380 0 . 

2029 . 

.13 

.00 1 

.063 

.04 



.UUOUUl 

3000 . 

.01 

.00000 1 

2182 . 

2039 . 

» U3y 

.OOOOi 

.0353 

.021 



3*3 






.333 

4133 , 

. 166 

.09 

4167 . 

2029 . 

. 1 633 

.3038 

.03 /9 

.141 



.363 

4030 , 

« 166 

.092 

4167 . 

2029 . 

. 1 63 

9 16 

.035 

« 13 



. 3 

4000 , 

. 19 

.072 

4320 . 

2029 . 

.31 33 

O 1338 

.0547 

• 1064 



.000001 

4000 , 

.01 

.00000 1 

4200 . 

2029 , 

.16 

.03 

.065 

.06 



.000001 

3300 . 

.01 

.00000 1 

3500 . 

2029 . 

.13 

.00001 

.065 

• 044 



.OOOOUl 

3000 , 

.Ol 

.00000 1 

2000 . 

2029 , 

.06 

.OOOOi 

.03 

.02 




»i- IN 
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Input Example 2 


LMSC-HEEC TR D4g6763-II 


•RUN RADI AT » IHNTSvAb 1 0 53 » LEE- ALb I N20ii ♦ 5 , 100 

•ASG«T TaPEI 1 4445 

•ASG*T lO’Ti09052 • SPbL DATA 

•REWIND TAPLI 

•COPY»G TAPEIiTPFs 

•FREE TAPEI 

• SETC< 1 ' 

•MAR, 1 S 
I N MA I NS 
Lib bYSS*MSFCy^. 


•XUT 


2 

4 4 

1 4 

1 .0 

0.0 

0.0 

0.5 



1 .5 

0.0 

0,9 

0.0 

0.0 

0.0 

0.0 

1 .0 

0.0 

1 

4 4 

1 1 

0.5 

0.0 

0.0 

0.5 



2.5 

0 .0 

o 

• 

o 

— 1.5 

0.0 

0.0 

— 1*5 

0.5 

0.0 

2 

8 1 0 

4 ' 4 

3.0 

0.5 

2.5 

2.25 



2.5 

n . 0 

o 

, 

o 

—0 » 5 

0.0 

0.0 

- 0.5 

3.0 

0.0 

6 

8 4 

o 

o 

2.625 

2 . 125 





1 .5 

0«0 

o 

• 

c 

- 1.5 

2 . 62 b 

o 

. 

o 

1 .0 

0.0 

0.0 


1 I 50000 


12U456 


O 4 1 85 . 0 


• F I IM 
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Input Example 3 


LMSC-HREC TE D496763-II 


•KUN kADi AT. i HNTSV45 1053 .LEE-ALB I NH02. 9. 150 

'AS'i^.T TaPEI »T. 1 3328 

•REWIND TAPEI 

•CuPY^G TAPEI. TPFs 

•FREE TAPEI 

* MAP, Is 
IN MAIN 

Lib SYS<i*MSFCSo 

• XOT 

2 


2 

8 3 2 2 

1.0 1 

o 

Q 

o 

o 

• 

o 

2.303 



. 0 

-3.4315 -O.O 

12.3 

-3.4315 

0.0 

0.0 

-2.4315 

0.0 

2 

8. 3 2 2 

1 .0 1 

o 

. 

o 

0.0 

2.303 



0 

3.4315 0.0 

12.3 

3.4315 

o 

. 

o 

O 

« 

o 

4.4315 

o 

O 

6 

3 20 1 1 

10*0 

2.0 





.0 

0*0 0.0 

O 

. 

o 

O 

O 

o 

o 

* 

o 

1.0 

O 

* 

O 

0.0 


10000 987654 

3 

1.0 O»0 0.0 0.0 1*0 70.0 0.0 

10000 987654 

5 

•0 — l.O OoO 0*0 1*0 0.0 0*0 1*0 2.0 

1 0000 987654 

6 

*0 0»0 3,4315 0.0 0.0 4.4315 0.0 1.0 0.0 0.0 

10000 987654 

1 

2.0 0*0 0.0 -5.0 4.0 0.0 -5.0 0«0 0.0 1.0 

1 0000 987654 

2 

<^"«0 0*0 0*0 5*0 4.0 0*0 5.0 4.0 0.0 4.0 

'FIN 
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LMSC-HREC TR D496763-II 


The output of the program consists of four main parts, which corre- 
spond to output examples 1 to 4, respectively. 

The first part of the output is the description of the input targer geom- 
etry. Part of the printout is shown as the output example 1 (page 23). The 
first two lines print out the input read by the TARGET subroutine. The trans- 
formation matrix and the coefficients of the q^uadric equation follow. Then 
the view point vectors from the origin of the central coordinate system to the 
center of the area segments on the target surface are printed out. The num- 
bers in numerical order on the left column are the index numbers for the 
subareas, which are used throughout the output. 
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Output Example 1 


LMSC-HREC TR D496763-II 


Input data for target no. i 

2 H 3 2 2 2.0000 l.QOOO *0000 1.0000 

.OQUO »000Q t-OOtm .-*43000^ •<1^0000 2 .T)000 .0000 

TRAN<;pnRMAT>QM My^TR I y 

-*100000 + 01 *000000 -.198'U9-08 

.000000 ■^400000'*^ -- - -,-000000 - 

*198419-08 *000000 -.lOOOOO+Ol 


coefficients for a cone 

^4 — * * *4 00000 + 01 

C2 « .100000+01 

C3 » .100000+01 

CH * .000000 

C5 • -.1 98419-07 

C6 = .000000 

C7 ■ ro oeooo 

C8 • .000000 

C9 « *000000 - - 

CONST B .000000 

RADIUS OF CONTRA inT -045-K^-= ^ 200000 + 0 4- 


coefficients For constraint planes 

Cl I » -.4OOOOO+-04 - — .. 

C12 B .000000 

CI3 » -.I98419-n8 ’ ■ 

cend « .OOOOOo 

C B ASEb . 100000 ) 01 

reference points on constraint disk T( -l.oooon 2.00000 .00000 J 


COmPOW-EIITS fas VIC-W- ^.04TTT VECT-0RS-- • 

1. VPIB -.833333+00 Vp2=* .117851+01 

\A P-l- = . , a 3 -»03^^v00 V p 2a ° 0 1 1 ? -8-S4^+04 

3. VP1= -.833333 + UU Vp2* -*U785l+0i 

4. VPl= »«83333^+0 q- V^P- 2 -b +4-4 7 8 5 I t Q i- 

5. VPisi -.500000 + 00 Vp2a *707107+00 

A. VPl= - + &OOQOO+00 -V^p2« —.70- 7 4-8- 7 -+ 0 6 

7. VR1= -.500000+00 VP2= -.707107+00 

8-. V- R1 » -. 500000 + 00 9 7Q7107 - +06 

9. VPl» -.166667+00 Vp2= .235702+00 

10 ^ -^-,. 2 .. 3 . & 7 0 ^-+ 0 q . 

11. VPt= -.166667+00 VP2a -.235702+00 

12. VP1» -.1666^7+^00 \1P2= +-2-3S-7OO+O0 


VP3b .117851+01 

. 1 17B51+Q1 

VP3= -.117851+01 


-Vf‘3» -. 1 17851*01 
VP3» .707107+00 
--V^P-3-*- W-p7 407*00 
VP3b -.707107+00 


VP3= .235702+00 
Vf3» .23S7-02+0O 
VP3b -.235702+Qq 
\ tf3= -.235702 + 00 


ON C0NSXR.A..1.N.T. DISK WO. I 

RMEan area 

1 .lOOOOO+Oi *000000 

2 . 100000+01 .000000 


ON CONSTRAINT DISK NO. 2 

R 44E-A N AREft 

i .500000+00 .785398+00 

■2 .1 SOOO-U-+0 1- . . ■♦- 2 3 S-6 1-9-+04 ■ — — 
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LMSC-HREC TE D496763-II 


The second part of the output printout (pages 25 and 26) is the prop- 
erties of the plume. GAMMA is the half-cone angle of the radial division 
in the plume. The number on the left column is the index number for the 
axial regions of the plume. The plume properties are printed two times in 
-IPLUME = 1 and 2 cases. The first time each individual property is grouped 
by axial and radial region. In the second printout all properties for a given 
region are listed. The first printout is done in INPUT subroutine, the second 
is done in OUTPUT subroutine. In IPLUME = 3 case, only the first printout 
is given, while in IPLUME = 4 case, both printouts are given in the first output 
and only the second printout is given at the subsequent output. 
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Output Example- 2 


LMSC-HREC TR D4 96 76 3 -II 


AVL.'<Ae.L NUMrtE'i-OhHS I T-Y -OK- PLUMt—a » 1 'I 1 239 +<J'^ P AR TS / F T 3 OK ♦'iVti 

rOTAL PuOi-^E VOLOilt » ’ otlGlZ + .la RtX3 NOZZLE EXIT RAOIUS « 1 

total radiant H£aT RATE = .4-396+13 WATTS 


00 fP 0 T -p-0 R-PR-D P £k T f 1 


- 1 

- .93331+34- 

* 1 00 6 6 +-3 5 - 

-.10734+05 • 

•. 124 18 + 05 

• . 1 1519 + 05 - — - 

2 

.93831+34 

• l'Ou65+o5 

. 10733+35 

• 12418 + jB 

. 1 1523 + 05 

- - 3 

- .93825 + 04 

lOOoS+'oS-" 

" .1O733 + 05-- 

■."1 24 18 + 05- 

■ .H523+-05 

4 

.93819+04 

" lvC65+o5 

. 10733+05 

• 12229 + ^5 

* 1E:725 + -Ci5 

b 

»o9333+j4 


® 10/40+35 

' . n 757 + 05' 

» 8 4 8 1 r+ 04 

6 

.82957+34 

»9oi 17+04 

. 1043:-+ 05 

. 1 1202+G5 

.65589+04 

-7 

■ • 80640 + 04 

• 9,;87-0 + 04 

10420 + 05 • 

. 10851+05" 

".64914+34 

a 

* 3-j6 29 + j 4 

.93178+04 

* 10530^;5 

• 1'048i+-o5 

*61854+04 

- 9 -- 

•.81841+04" 

.92017+04" 

. 1-222 1 +05"- 

'.75663 + q4 

■ .27C'2'3+-3-4 

10 

» 12180+35 

. 1 1968+05 

.8667 7+ 34 

.29004+04 

*85841+01 

1 i 

» 1 ft-j-oa + 033 - 

♦T4 3‘5 9 + 05 

.9TT^3V04 

.'24599 + 5^4' 

V353T4-+7JU 

12 

.14/90+05 

. 13372 + oS 

. IO 208 +OS 

.39722+04 

*35314+00 

-13"- 

■ «r2236+-05 - 

•i n5T2 + :5--- 

— .■94719 + 04- 

'.•3851 1+04 

‘".35 3I4+-0-0- - 

14 

i 10483+05 

.95912+04 

.61219+04 

« 17682 + 34 

• 353 14 + 00 


Oii-T-p-UT~ p-DTf-PROPtRT-Y Z 


j .2265-3 +oh----. 226cj- 3+34 -- -.22635*^4 — ■."22680+-34- - fZQSSO + O'T 

2 ‘226HU + 04 .22663 + ^4 .22637+34 .22630+Q4 .2caa3 + *j‘» 

"3 - » 22ft 43 + • 2 26S"3 + 04 V226 8 7 + :;4"“."2 26 80+^4 i 2 ‘2 3 8 B"-F2"4“ 

4 . 22648+ jH . .22663+ J4 «226b/ + "4 •22633 + e'i .20891+04 

5 .-2 2-6-3 "7-+0-4 r226'y9-*-z^ .-2-26-7-7-+ ~ 4 ),'-Z2 6 7 6 +--o 4 - 5*2 T 7t4-+-04~ 


6 

.22643+04 

•22661+34 

.22667 + -J4 

c22667+q4 

.21824+04 

7-“ 

.2 23t-2-+34 - 

-.22416+-04 

— 1-224?-:+': 4 - 

-.•22443 + 04 

".■22882 + 34 — 

8 

.21 7*2 + 04 

.2207-3 + 34 

.22342+34 

*2203a + 0‘< 

® 255 1 3 + 04 

-9- 

» 2 1698+04 ■ 

-•.-22329 + 34 

.2215 1 + 34 - 

.21962+04 

"■■ *2 I 4Q3+04" ‘ 

10 

.22596+04 

.22667+34 

.22327+34 

. 22995+04 

. 19978 + 04 


0 it 0 J "/ H 

<rZ 3 2'2 9 + y 4 - 

^224rV+-0 4 - 

* 20S99 + J24 

■ V I'8549-+'Cr4 

12 

.23309+34 

.23147+04 

.22225+34 

*20674+04 

. 1 8440+04 

13- 

■■ •.23173 + 34- 

.-23’;44 + o4 

■".22431+3 4“- 

“i 19732 + 04 

"p 166 6 7 +'Q 4 

54 

. 22923+34 

• 22686+34 

.22388+04 

•20456+Q4 

.16641+04 


00-T-P-b-T—f- 0R“-PR-0P£-Trf-T 3 


REPRODUCIBILITY OF THE 


-1- 

.59 7-1-1 +-01— 

-.59568+-J1 - 

-.S945-3+r:i — 

- 0-59595 + 0 I 

- *44964+or ■ . ■■ 

2 

.59741+3 1 

.59571+01 

.59436+31 

. 59595+01 

. 4494-0 + DI 

3- 

. bV7 4 1 +-G1 - 

• 5657t: + 0 l -■ 

•*S69i6+::r - 

-.59595 + 01 

-"* 4 49 4C + uI 

4 

« 59741 + 31 

*5669^+01 

.57016 + -31 

. 59595+01 

*41424+01 

s 

"» b 97 - 4 - 1 -+ - 3 - 1 - 

»-5 96'57 +0 r ■ 

* £ 9538+71 

~i‘56> 4 3 4 + 0 r 

thttas+ot- 

6 

. 5 9 7 <11 + j 1 

< 59741+3-1 

• 59578+31 

.59277+01 

«4 4 171+-j1 

-7 •■ 

.593 3 1 +-Jl 

♦ 59S87 >'01 ■ 

■*59500 + 3 f - 

*59031+01 

■”.43878 + 07 

8 

.58928+01 

. 5'94 36 + 01 

.59516+31 

.58715+01 

.43589+01 

• - 9- 

•5/6o7 + -31 

♦ 5 79 73 + ,:1- 

-.58242 + -31 

.54749+01 

- .36583 + 01 - ... - 

10 

» 5 5 6 6 6 + *0 i 

.56197+31 

"56 1 26+31 

.39272+q: 

* 1623-0 + 01 

i r 

• b '0 8 ~7 + 0" 1" 

-> b6'2 84 +■; i' ■ 

•b65/‘l + yj 

VZ873 l + Gl" 

.3o43'v;+'a^u " ■ “ ■ 

12 

♦ b / 4 3 2 + 3 1 

• 57336+31 

» 57 6 3'0+ 0 1 

*29394+01 

9 3u480+00 
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P-HOf'tH-R tS— 1 -N-FuUM[£ -REG I URb- 


LMSC-HSEC TR D496763-II 


TP ~ { DEGREES KELVIN J 
^ . . j — S ” K E UAflir")'” 
N “ ( PARfS/CN3 ) 

TAUP - ( •--) 

TAUG - ( - ) 

TAU (■■--1 

HP - I MICRONS ) 



MF - ( - ) 

'Hii - • r EXIT RaDI'I--) 


uT^n HA' =- 

— r«2TT 

ZTTO" 

3 • 615’ 

*r3'6C 


- -1 

■ TP-- = 


— 9-22663+04- 

-'♦2 268S'+C4 - 

".22600 + 54 -- 

-9 208 ^ 8 8-+n"4"- 

1 

TG = 

■ zoaQz+i'i 

921333+04 

•21263+04 

•21662+04 

9 19655 + 04 

- “1 

n -=• 

-« V38 3 

"■ 9'l:;c66+05i 

" 1 :;734 + 5:5-- 

- J2418 + S5 

“n 1519 + 05— 

1 

TAUP = 

9 H6529 + C1 

•49777+01 

.53463+01 

*65j66G+01 

.40444+01 

1 

T ATJ y - 

• 67378 + 3TC" 

TV'S"? 7 4 +’50" 

.T5691 +'^fi ' 

' .“ri4l5-+ -Gl 

9 1T81T1 +C'l 

1 

T AU = 

- • b S 2 6 7 + j- 3 

p59274+CI 

9 64 1 54 + 01 

972074+31 

952245+21 

- 1 

RP ••=■ 

--V5V71 l+:rr 

«'5 9b6 8+Qi" 

— 9 5 94 5'0+"3i 

”9 59S95 + « r ■” 

* 44 9 64 +'2 r 

1 

a/e = 

» 1 9293+£;a 

• 19310+03 

♦ I 987 3+00 

9 1 9 1 86+59 

9 22948 + gO 

■ "lKADrK = 

“c 43 i 42“'73’ 

— i 13466-02' 

■".' 2 65 re - 0 2 ' ■ 

. 3 . 43 I 8-32 

• '355T2-S2 

1 

H2 = 

9 43C0Q + i:0 



-■ 


2 

TP = 

• 226 46 + 1;,'} 

«226b3+Q4 

»22687+C4 

• 2268 C +94 

9 20888 + 34 

■"-2- 

• T G- - =- 

— -9-2CV6i +C4" 

— ■s'21 368+04" 

— 21 239+04" 

- i 2 I 9'i r+04 - 

9'2DSS'3 + C4 

2 

N = 

99363i+;.4 

e 1 5'3 6b+05 

• t S733 + C5 

• 12^18 + 35 

9 U523 + CJ5 

" 2- 

TAUP=- 

» 4'6 2 A S +E' i"' 

“94 9 6SL'^+0r • 

'"'.53427+'31 '■ 

" '• 6116 6'0 + fi-l ~ 

•i403-77+-0l 

2 

T AUG = 

o U b 7 b 7 + liG 

p 9 1 &96+C0 

* 1 vl 14 + Sl 

• l0226 + r.i 

.94589+30 

— 2 ‘ 

— tau=- 

• S'4'8'6 l~+ CT 

— .S-S'in 3'+0T“ 

— i’6 3 5 4 1+-2- 1~ 

■"-•73 8-85'+C-'r'' 

~9'4-785'8+':; 1 

2 

RP = 

.5974l+’^l 

p59S71+DI 

*59 4 86 + C' 1 

.59595+. 31 

9 44940+01 

• - 2 

a/E=- 

— -.'lBb9b + 3Q' 

— a 8 6 4 +0 3 ■ 

{9 140 + 00" 

-<.-17833 + ;0“'' 

'■• 19348 + uO 

2RADFK= 

9 43V 13-53 

* 1 ■t3 3 3”Q2 

. 26759—02 

9 3G358-.ti,2 

038755-32 

L. 

n ^ ^ 

* 63i.'-;v. + i3ij 





3- 

— T P--»- 

— 9-2-2 6 4-B-+^4- 

— 9-2 2-6-6 3 +04- 

— >"22 6 67-*-sr4--" 

"■ 9-226 80+C 4 -- 

--9-2 073-8-8'+ ^-4 - 7 - 

3 

TG = 

*2 1 297 + l’4 

•21 193+04 

, 2:;995 + o4 

-21933+34 

9 22503+^,4 

- 3- 

N ■ 

— 9-V-j6 2b-+54- 

* 1 J065+CS- 

-- » i-5733 + 05 ■ 

9 1 24 1 8+3S~ 

- ♦ I-iS2-2+-'i3- 

3 

TAUP = 

•46269+-1 

9 53 7 7 4+01 

>56531+01 

.6';;6fa.^ + -.l 

9 4u3 9 9 + ijl 

-- -3 

T A U G = 

■ .63430 + 53' 

- '.-6 6 28-3+00- 

■ »9::378 + 0Cj'' 

-.67324 + 32 — 

■97 29 35 + e2 

3 

TAU = 

•S4632+31 

9 62402 + 0 1 

9 6551 l+.^l 

.67392+31 

• 947692 + 21 

^3- 

ffP-B.- 

— »b'9-7tl+'51- 

5'5'6S7S+-3-1- 

3 671-6 +or~ 

-i 5 7575+ 5‘1 — 

"■9"<r4-7-4Tr+7;-i — 

3 

A/E = 

9 I6b49 t-OO 

1 1 7438 + 00 

♦ 16951+CC 

9 13574+20 

0 15606 + 05 

3KADFK = 

■-94«6b4-'33 

“ i 15570-02 • 

" -. 257 J'8 ->:2- 

.280l7-r;2-- 

■e 4 4T9 4+'02 

3 

HZ =* 

9 12C03 + :jI 





'I 

TP = 

9 226 4d + ;,4 

922663+04 

922687-)-.04 

9 22663 + 04 

•20891^04 

if- 

- T G-“- 

— »-21 2S-7+a4- 

9-20973 + 04' 

—■♦2 36 6 7+04" 

921532+54" 

■ 9 225-b-2+"0-‘T” 

4 

N » 

.9-} 8 1 9 + r 4 

9 1 3065+05 

• 10733 + 25 

9 1 2229+05 

9 1 3705+05 
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In the case of heating rate calculation with IPL.UME = 1, the number 
of events of emission, re-emission and scattering of each region are tabu- 
lated. If the anisotropic scattering option is used, the coefficients of the 
scattering distribution are printed on top of the table, otherwise, the words 
"isotropic scattering" are printed. A part of this output is shown in output 
example 3 (page 28). 
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Output Example 3 


AMIUlKOfiC scattering 


REPRODUCIBILITY Oh' THE 
ORIGINAL PA GE IS POOR 


Tb trra'iJoTi B’a 1 & • OQU R O • a GO 0=160*0 0^ f = 1 7 5^ » C n 0 

f ss *2000 <3= ‘*•000 N= l5o000 1= ***200 0=!60,0o0 


OISTKIRUTION of SCATTERINJjS and emissions jHROU'iHnuT PlUmE 



■ "gamma = 

TTZU 

“2TS0 

3*60 

4T60 • 

6 « 00 

1 

"NtPriT = 

T2 

?7 

76 

1 1 1 

93 

1 

KEEMITS » 

23 

SO 

110 

1 25 

121 

T' 

i?Tat = 

76 

218 

4 1 3 

567 

375 

• 2 

NtMlT = 

19 

42 

83 

100 

1 19 

2 

RtEMITS = 

29 

106 

150 

151 

157 

2 

iSCAf = 

1 15 

3 T 3 

746 

726 

64 1 

3 

N t. M I T = 

8 

41 

82 

79 

1 10 

3 

R £ £ N 1 T S = 

34 

124 

162 

1 39 

1 4n 

3 

' ■ 1 scaT'^ 

173 

519 

805 

83 I 

7 37 


nEmTt"'® 

36 

120 

1 99 

192 

400 


K£EM I rs a 

85 

3 1 6 

44 1 

344 

486 


I^Tcat = 

433 

1556 

2352 

2449 - 

2045 

• ■ ■■ S" 

Nt-MIT 3 

1 2 

sT4 

68 

104 

246 

5 

RtEMiTS = 

57 

135 

238 

2ftQ 

318 

5 

iscat = 

217 

672 

1252 

I 366 

1191 

6 

NtMlT = 

1 9 

46 

99 

165 

305 

6 

KtEMITS a 

56 

196 

303 

373 

487 

6 

iscat = 

274 

1028 

1557 

1 691 

172 1 

7 

N k. M I'f ■ = 

15 

SI 

101 

1 73 

269 

7 

KtEMITS a 

,48 

155 

32B 

354 

452 

7 

iscat = 

273 

828 

1447 • 

16 14 

1422 

8‘ 

N£m I T = 

12 

58 

1 39 

159 

279 

B 

REEHITS a 

55 

235 

450 

422 

539 

iT 

I c ^ t ^ 

3U4 


17 7 2 

1 656 

i 5uo 

T 

NtMlT = 

43 

1 30 

298 

329 

470 

9 

KtEMITS a 

Ibl 

483 

902 

6B9 

1044 

9 

■ iscat ■= 

546 

1881 

3393 

2502 

1 20 1 

10 

‘NtM 1 T”'= 

68 

196 

334 

3 1 4 

^133 

1 0 

RtEMITS = 

260 

779 

9 80 

705 

1016 

1 rj 

iscat = 

926 

2794 

3678 

1 4 35 

3 

1 1 

N t M I T ■ a 

4 1 5 

1 ors 

1034 

994 

82 9“ 




.i.nrrvuccn oCQPAOr'u ». CNCrNFPP^NC CFNTFR 






LMSC-HREC TR D496763-II 


The last part of the output is the tabulation of heating flux on each sub- 

area of target surfaces. The area ninnbers are consistent with the area view 

vector numbers in the first part of the output. The heating rates are given 
2 2 

in both W/cm. and Btu/ft -sec in two adjacent columns. The average heating 
rates of groups of NNl subareas are also given, as shown in output example 4 
(page 30). 

Output example 5 (page 31) shows the output for view factor calculations. 
The view factor column lists the computed view factors from the emitting sur- 
face to the subarea. The corresponding reciprocal view factor is given on the 
same line. The view factor of the emitting surface to the entire target surface 
and its reciprocal are given below the table. 
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. .Output Example .4 

TOTA L N.U t ib.ER J 1F_£.M.L5 L A £. S 0 P i 1- 0 14 = 


JiOC-C-O 


177375 


R£a = iBb.C 


R'A-D-t AT— T= 


TARG-ET -Ija. - 1 

ON TAKCtT HAIN SIDE SURFACE 


AREA 


NUkEER 

_CL£ EUXS- 

3 5 • 2 
H2*0 
6 7 • c 

51*^ 

57*0 

bEij; 


AREA heat TRANStER 

N-UHp€R — ■ W/CH2 

1 i.'iMi+ri 

2 1*6969+01 

3 2, 7069+01 

.a 2.14 13 + C-l 

5 2.3D29+C1 

. 6 - . 2.343G + Crl 


7 

7c*r 

7 

2.8282+Gl 

8 

7S..C‘„ 

8 .. . 

3.0302+01 

9 

6P.C 

9 

2,4241 +nl 

1 0 

45. 

_ . . 1T5 

1 *81 8 1 +C-1 

1 1 

42, C 

1 » 

1 o 6 9 6 9 + C 1 

12 

39.0 

. ±2 

..1...5 737 +C-1 


NM. _ 

AVER.A,Gi^. 

2.l649+r-l 

1 3 

iLl^n 

. . lyj . 

1 *6565+01 

1 4 

58,0 

1 4 

2.3433+01 

1 S 

54. n 

„1_5 

2*1 -8-1 7 +i5. 1 

1 6 

69. O’ 

1 6 

2 ,7877+'^ 1 




1 8 


86»r 

1 8 

L9 

.. 

53.0 - - 

! 9 

2 0 


56. C 

zr 

2l 


4 5 , •“ 

. 2 1 

22 


5f ,C 

22 

23 


— 5 2 » 0 

- 23 

24 


32.'' 

2 4 


fe-l- 

11 


average 


2*5857 +0 1 
3, a 7 46 + - 1 
2.1413+01 
2.2625 + r 1 

•1*8181+—. i 
2,r20J+v':l 
2. 1C09 + C 1 
1 * 2929+c 1 

2,2221+01 


25 

25.0 

25 

O rt 
Sd H 

1 . 0 1 0 1 ♦ 1 

26 

4- , 0 

26 


1 . 6 1 6 1 + e- 1 

27 

45.: 

27 


1.8181+01 

28 

6 . r 

2 8. 


2.4241+01 

29 

4 ! » 0 

29 


1 .6565 + 01 

30 

59 . A 

Aft 


2j._38 3 7+Cl 

3)- - ■ 

53.0 

3 I 


2.1413+01 

32 

37. C 

3 2 


1 ,4949 + ci 

33 

57 , 

33 


2.3029+51 


heat transfer 
0TU/SEC-«'T2 
I ,2456 + 01 
i .4947+01 
2 . 3843+0 1 
1 , 8861 +&1- 
2.0285+01 
- 2,il64l +01- - 

2.49 I 1 +bl 
2.6690+01 
2. 1352 + 01 
1.6014+Ul 
1 . 4947+01 
— -1*387 9-+-G 4- — . 


1 , 9069+01 


area 

'N'UMRER'" 

1 

2 

3 

4 

5 

-6 

7 

8 - - 

9 

- -i-e 

1 1 


1 .4591 +Cl 
2.2641+01 

1 3 - 
14 

-I . 9 21 7+01- 

FS~- 

2.4555+01 

16 

2. 2776+01 

— j 

3 . c6'j5 + 0 1 

! 8 

1 .8861+01 

I^- 

1.9929+01 

zn 

1 .6014+01 

„ . 

1 .7794 + 01 

22 

1 . 85-35 + Cl 

- -2-3 - 

t . 1388+01 

24 

1 . 9573 + 01 

a , 8968+CC 

25 

1 . 4235+01 

■ -26- 

1.6014+01 

27 

2. 1 352+C-l 

- ■ 26- 

1.4591+01 

29 

2. ,1996+01 

39- - 

1.8861+01 

3 1 

1 .3167 + 01 

32- 

2.0285+01 

33 


HIT AREA 

1.428571 
1 . 428Srr 
I . 42857 1 
■1-r4^8&7l~ 
I .42857 I 
I .428571' 
1.428571 
-t-.-4-2-8-S-7-r 
1.428571 
-F r'l-^ 8-5-TT" 
I .42857 1 


-t'r4'2^5-7i 

1 .428571 
-t-r4-2r8*7T — 
1 .428571 

-l-raT^TT 

I .428571 


1.426571 I 

1,428571 X 
-1" 4-2-fr E» 7 r U J- 
I . 42857 I W 


1.428571 ^ 
-1-. 4-285rr^ 
I .428571 
H j-4-2^ 5-71— Sy 
I .423571 X 

-4- + 4 2 -6-57-1 

1.428571 

1 *428571 

1 .42857 I 
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Output Example 5 


VIEW Factor output 


TOTAL sample = B'7Q0 NSTART = 66^321 


MHITP = 0 MMISS = *1^9* 


£ARF;A = 6.283190 + 00 


t 


I 

:target No. i 

target Main surface, l = i 


I 

I 


area 

NO . OF 

AREA 

VIEW 

hitarea 

AREA 

number 

H ITS 

number 

factor 


number 

1 

9 . 

5 

1 . 8000-03 

2. 1317 + 00 

1 

2 

7. 

2 

1 . 9COO-C3 

2.181 7+00 

2 

3 

9, 

3 

I . 8000-03 

2.1817+00 

3 

9 

9 . 

u 

8 , 0000-09 

2.1817+00 

9 

5 

IP. 

5 

3 « 8nc0“0 3 

6 .5950 + 00 

5 

6 

20* 

6 

0000-03 

6 .5950 + 00 

6 

7 

IP. 

7 

3 . flocn*?o3 

6.5950+00 

7 

8 

20 . 

8 

9 . OCO^-03 

6.5950+00 

8 

9 

29. 

9 

9 * 8000“0 3 

1 .0908 + 01 

9 

1 0 

29. 

to 

9 . 8n.OO-n3 

1 .0908 + 01 

10 

1 1 

25. 

1 1 

5 • 0000-03 

t .0908 + 01 

1 1 

1 2 

27 . 

1 2 

5 . 9nr n-n3 

S .0908 + 0! 

1 2 

total 

hit = 

207. 

VIE'-’' factor 

= 9,1900-02 



VIEW factor by 
reciprocity 

6.2500-09 
9,861 1-09 
6 . 2500-09 
2,7778-09 

3.9583- 03 
9 , 1 667-03 

3.9583- 03 
9 , 1 667-03 

8.3333- 03 

8.3333- 03 
8.6806-03 
9,3750-03 


RECIPR VF = 


MhI TG 


3.3120-03 
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4. PROGRAM CHARACTERISTICS 


The following characteristics of executing the SRB thermal radiation 
program are discussed. 


e The code is stored on a 7 -track tape which can be read into a 
Univac 1108 Exec 8 computer by the following control cards. 

@ RUN 

@ ASG, T TAPEl, Tjtape number 
@ REWIND TAPEl 
@ COPY, G TAPEl, TPF$ 

@ FREE TAPE 1 

When either IPEUME = 3 or 4, an additional tape needs to be 
assigned. 

@ ASG, T 10,T,SAVEO5 (for IPLUME = 3) 

@ ASG, T 10, T, (tape number) (for IPLUME = 4) 


The source program and the relocatable elements takes 33 blocks 
on tape. If the absolute elements are included, the length is ex- 
tended to 61 blocks. There are two absolute elements, DP and SP, 
corresponding to dual plume program and single plume program, 
respectively. 

© The program has to be mapped before execution. The control 
cards for mapping are as follows: 

@ MAP, IS DP, DP 
IN MAIN 

LIB SYS$*MSFC$. 

@ XQT DP 

The core storage taken up by the dual plume program is 50 K. • 
The core requirement for the single plume program is about the 
same (49 K). 

e The core storage requirement for the program varies with the 
array assignments, which can be done by changing the param- 
eters in the PDP element. The values used in the current version 
of the program on tape are as follows: 

ISEG = 18, JSEG = 10, PPT = 10, NTMAX = 10, 

NRING = 12, NSIDEA = 250 
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where 

ISEG = number of regions in the plume in the axial 
direction 

JSEG = niHnber of regions in the plume in the radial 
direction 

PPT = number of plume properties 
NTMAX = maximum number of target surfaces 
(NTARGT < NTMAX) 

NRING = maximum number of divisions in the radial 
direction on the constraint disks 

(NRING > MAX (NRING 1, NRING 2)) 

NSIDEA = maximum number of view point areas on 
the target surface (NSIDEA > NN1*NN 2) . 


Whenever the dimensions are changed, the program elements 
involving the dimensions need to be recompiled before execution. 
To recompile the affected program elements, one needs simply 
to include the following card in the run stream. 

@ ADD, P •FORCARDS 

To obtain a listing of the entire program, the control card shown 
below is used after the source program file has been copied into 
core. The printout takes 90 pages. 

@ADD,P ePRTCARDS 

To obtain a punch card deck of the entire program, the control 
card shown below is used after the source program file has been 
copied into core. The punch card output is approximately 3700 
cards. 

@ ADD,P oPUNCARDS 

The run time of the program depends very much on the case at 
hand. The following examples serve to indicate the estimate 
of a run. 

a. When IPLUME = 3 option is used to generate the data 
tape for a plume, the run time depends on the attenuation 
and absorption of the plume. To complete a data tape 
with 100,000 sample trajectories requires 65 minutes 
for sea level plume with afterburning and 35 minutes for a 
72,000 ft plume. 

b. It takes about 10 seconds to read 10,000 sample points from 
data tape. 

c. It takes 25 minutes to run 25,000 samples in the dual plume 
calculation (IPLUME = 1) with three target surfaces. The 
same run takes about 2 minutes if the data were read from 
a tape (IPLUME = 4). 
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d. It takes about 4 minutes to compute 10,000 samples in a view 
factor calculation involving two target surfaces. A similar 
run with 40,000 samples requires 16 minutes of computer time. 

These runs were executed on the Univac 1108 computer at NASA-MSFC. 
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5. PROGRAM LISTING 

The entire source program is listed on pages 36 through 117. The 
program elements are listed in alphabetical order except the PDP DIMENS, 
which defines the dimension parameters and the COMMON blocks and Is 
listed first. 
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SRB PLUME THERMAL RADIATION PROGRAM LISTING 


_ date: 030576 

S C UT tt 0IHEN5 • 

£LT007 RLJB70 03/05- 1 I S M2 • 5 I t 0 , ) 


''OOQOl 00 0 OtH PHU C 

OC0002 000 PAKAMETtR isEG=l8, JSEGolo, PPTolO 

POO IU)3 000 PABahE T ER IJ 5 e 6 » I S E G » J SE G ,_1 Pj - J S EG» lt JPT«sl S EG»I. IJPTalPToJPT 

OOOOOM 000 CJHMON/PKOPTY/PrOPCPPT, JPT.JPT)' 

0P0.)Ob_ OOP CyhllON/RE^Ut-T,/. T.D « I P I SK , 1 0 A RE A , KR > N6 ^ KPH 1 . 0 t STNS t XX ( 3 ) 

OJOHOa" ^ 000 CyHMUN/INl/Ix',jx,lRGN,JRGN,NSTART,lSOiSIGBETiREX*GAMHA, SIGMA 

0 00 no 7 00 3 ^COllllON / ! H7(__HL{ J P T ) , H 2C UBE ! I P T ) UPT ) .2 ( I Pj I 

GUQOUB 6cd CUMMOM/IM3/ G A MH A X ( JS EG ) ■ T A NG ( OSEG I « T ANS2 { JSEG ) ,CG A MM A IJSEG > t 

OCOrlOV OOP a P 3TAMZ I JSEG l_i TNG2( JPj 1 

COJijio' 000 COMh’oM/INH/ IREnlf('i JSEGI .nEMITI I JSEG j ,lsCATlISEG,JSEG) 

OCOOi J poo CUMM0N/IN5 /TaU( ISEG.JSEGl ,TAUP( JSEG,JSEG) ,TAUG( I SEG j J SP5.)_ i 

U000I2 ” oca . XNHUU JSE6) ,CHIBTA{ IJSEGI 

ocon 1.3 .O.CO ^CU_MMON/f NST l/SA,S8,SC,SD,SE,SF ,SG,SH,S1 ,5J,CI iCZiCpjCM 

00 00 I M dod' COHHON/C MST2/A I ,AZ,a3,A‘1,A5,A6,a7,ABoA9,AJO.AKiAU 

0 0 00 IS oc a CUH H0N/CHST3/S 1 .52.53.SM.S5 , S 6 , S 7 , S 0 » S9 , C J K , C2K t C3 K tS IK 

OGduU cob c'OHtt'ON/CFiST'i/QA . GO , ejC , OD , QE , I E H I T , JEM I T , K E M I T , I E V EUT * JE V E n"t , 

GGOnl? .000 » JOnt X , I NDE X (KNyEX . 

CCJ-J18 500 COMMON /CNST5/P I I TiVoP I 1 H ALFP I . STFBLZ »R API AT , H , I PtUME 

C'. OPI 9 OOP ~ CUMMON/TRIG/SINeTA .CPSETA .T ANET a iCOST .THETA .theta t .p hu .eta .a lpha 

^..vo'jza ucd cohhon/qp/ttng(jpti ,ttng 2 ijpt) ,vu JSEG) 

C,',uo2l ClOO END 

0 fP;i 22 ooa GEOH PROC 

CCOU23 poo HIMAXrlO, NR1N6=J2, N5lPEA-25p 

bi!P(l2M"" 000 COMMON/ONCE/ NTaRG r .COEF ( HTMAX , tO» (DATA ( NTMAX . I 6» .DI SKEQ INTMAX .5 } 

000.12 s_ poo e . { body (NTHAX 1 ,R0CiNO(NTMAX),FUAREA1NTHAX),NAREA(nTHAX|3.>, 

C0502ti 000 «VtCTdR(NTMAX.NSlOEA,3),VAR£A(NTMAx.NSIOeA).RRING{NTMAX,2) 

nriOil/? -333 » , CR 1 NG (N rilA X , NR [ NQ , 2 } ,NCKI NG ( NTHAX , 2 I f DPH JC ( NTMAX) . RB O ND U ( H f H A X ) . 

DOOlJZB QCO « RmEa'nc 1 NT'haX ,Nr'j NG ,2) ,SREF (NTMaX ,3 ,2 1 ,'tREP INf HaX'»3.2) 

CnOoZY ^.1 COMMON, ./f IN.AU/ .hit (N_SIpEA|NTMAX.3) . .. . 

00.7030 OOd ’ END 


LhO EUt". 


J*' -ST.'S ATTeN 
t .iHmOR 002A-03/ Q5- 11 ; M2 


EEPEODUCffiMrY OF THE 

oeigmal fage is poor 


36 


LOCKHEED -HUNTSVILLE RESEARCH & ENGINEERING CENTER 





JLMSC-HREC TR D496763-II 


i.Lc.-i^UBlN20^•TPFS,ATTEN 

' ■» wffirciU’nNE' AmN( upttri iRjStH.jr.TE^cJfpl 

2 INCLUDE OJ««LIST 

3 j«i 

H CALL HANDOHIUl ^ 

5> XY » -ALOGIU) 

b ATEN « G.0_ _ . . _ 

7 "SEVLNT » 0.0 

« IF! COSLTA .UT. n.Cl GO TO 300 

V ■ ■■ IF UNDEX.LE.J^)' GO TO SOO 

10_ JFKObT .LT. n.O) GO T0_55JD 

jT C ATfLnTTAt I UN~LOOP FOR "thEtT L't' 90' DEG AND E^A GT ?0 deg 

12 bOO IF (HiilNUEXI ,GT. <:(J)I go to *100 

IJ 5. UUNOLE FKUH KEGIUNUNDLX, JNOEX) intersects REGION! INDExTJn'DCX^ST" 

14 . SMAX » t^IJ) - Z!g-n )/C0SETA __ _ 

r.> IF IJ.EJ.U SHAX« (XI I I - H 1 / COsVtA " ' ■ - J 

J_6_ 501 SP » 1 X_Y_ -_kj£ N 1 TAUUNOEX, J Np.Ol 

',7 If ISP.’ LEVsmAx') go to iob 

IP IF IJNOl-X .EO. JHGNI GO TO I 300 . _ 

I'? ATLh’a ATLN + ' T AU t I NO L X , JND E X ) i SM A X 

3 _ JNOtX » JNOEX ♦!_ _ _ _ _ 

I SEVLNT ’o’ SEVE n’t '+’ SHAX' ' " 

72 J » J+I 

2i GO TO SCO 

J'l HOC SHAX » IIUUNOEXI - Z t J- 1 ) ) /COSETA _ 

Zb ■ ''c"«ONOLE 'mUM KEGIOMIINOEX, JNOEX) INTERSECTS" RE“G ION ( ! NDE"x'-Ti JNDE X I 

?6 IF IJ.Ev.lI SHAX » (HZIINOEXI-H )/C0SETA 

27 *tCI SP”‘» ■(Xr-ATEN)'/ 'fAUUNOEX.JNDEX) ‘ 

7 H IF tSP .LE. ShA XJ G 0_,T 0 

IFl INDLX’ .EO." Ti GO to' fobO 

_ITJ;n = ATEN ♦ TAUt INDEX, JN0EX)»SMAX ; 

~ 1 Niiex '=' 'index - ‘i 

SEVEN! « SEVEnT. ♦ SHAX _ _ _ 

SOZ' I F (HZ (I NuL A ) ,6T ,Z (" j n GO TO '*(03 

SHAX » IZIJI - HZ( 1NDEX+-1 ) I/COSETA 




LMSC-HREC TR D496763-II 


54> 

S7' 

S8_ 

5V 
h 0^._ 

6 I 
*2_ 
6i 

o'3 
b b 

1 7 " 
.rt 
b'i 

7 0 
-7 1 

7i 
7 I 
74 
/!> 
76 
7 7 
' '* 

•I I 
rtZ 
d3 

*3 

I'J 

h"7 

'/ r' 

•< j 

7 i 
>74 

ys 

y.6 

y V 
lOO 
i Jt 
I 52 

j 

I , I 
I U 
■ . 6 
i ; 7 
I'.rt. 
1 57 

I 5L! 

< i I 


if tJN0EX,L£»J21 GO T O 5 00 


GO TO 550 

450_.SMAX_j (HZ ( I.N&EX ( Jr J ) LZC 05 E.TA 


"c bUNDLE FKOH ReGIOHt I ndex, JNDEX) intersects REGION! INOEK-l »JNDEXI 

IF { J .£U , 1 ) SHAX a ( H Z ( I N D EX> - H I/ CQ-SETj 

SP » (XT-ATEN) / TAUt INOEXiJNDEXI 

_!_F.tSP . .LE_., 5HAXI GO TO 60C , 

TfTinoex ,e’o, n GO to. mao 

ATEN « ATEN + T A U ( I NO E X , JN DE X J *SM A X 

index » INDEX - I 

SEVENT » SEVLnT + SHAX 


451 I>(HZ(II<'u'ex'| ,6T.Z(J)I GO TO 452 

SHAX » (Z(JI -_HZ(|N0EX +11) / COSET^, _ 

go’ TO 55 i 

_452.5_MA_X ;• ( HZ { 1 NOEXJ HZ( index ♦ I ) ( /C0SET_A_ 

“ "”SP •> (xV~ATEN> / TAU( INDEX iJNDEXI 

IF. iy? -•LI ... ShAA)...50 TO *0Q,._ 

IF (Index ,EU. II GO TO IQOO 
_eTEN = AlfcN + TAU.t INQEX,JNDEX) *SMA* 

INDEX * INDEX - I 

SEVENTsSLVENT+SHAX. 

c, 0 r (J 4 5 5 

31' JF I JNi'f-X . EE ..JZ }_6S_.T0. .3g I 

If ( CDS r ,L I .0.01 go to 750 

C. aTTENdaTIUn loop for THET alt. 93 .D.E6..ANI) . ET.A_1,1 ?0. .DE.G ! 

30! IF ( .4 Z ( ! NDEX+ J) .LT . Z I J ) I GO TO 600 
t .bundle FHOH kCG IOii n'(DE5< I JNOex ) intersects RE,GIONnNDEX.3.J.MOEJE*.lJ_ 
SH.AX = (ZIJ) - Z(J-ni / COSETA 

lF(...J..r-'«. .L). .‘i.^'AX..= UU-1 5 9.SEJLA. 

JO,"* SP’a'rxT - ATEN) / TaU ( I NDEX , JNDEX 1 

IF (SP .Lil. SHAXJ GO TO 630 

iV (JNOLX .EO, JR6('(I gO to 1001 

ATtN = ATC.1J * TAU ( I NOEx , JNDEX I ‘SMAX 

JNOLX = JNDEX+I 

SEV ENT » SEVLIfT .tSHAX 

J » J* 1 

Ci Q T 0 J j I _ . .. . — 

c’bUNDLE FRDH KEG 1 (1 K ( I NOE X , jNuE X > INTERSECTS REG 1 ON ( I NDEX 6 1 , JNQE X ) 

600 SHAX a i HZ ( l.NDEX+1 ) - Z ( J- 1 5 1 /COSETA. . „ 

IF(' J. EU.il SHAX i (HTIINDEX+II -HI/ COSETA 

SP ■ LXYr_A3E_NL_Z f A U{ INDEX, JN D EX) 


a 


IFISF.LE.SHAXI GO TO 603 

._IF t.I.NDLX .EQ. I.R5NI. GO TO ICQI 

’“aTEN •• AIEN ♦ TAUt INDEX, JNOEX I^SMAX 

INDEX.» JN0EX..1 _ . . ..... 

SEVENT = SEVENT ♦ SHAX 

I IF (H Z( iNDE X + J !. j 1 ,.T . Z < J > I TO _ 8 Q 2 „_ 

SNAX a rZIJI - HZliitOEX)! / COSETA 

GO TO 3 J 2 ... . 

SO? SHAX = (rtZtINDEX +15 - HZtlNDEXI) / COSETA 

SP. .« (XT-ATFN) / TAU( I NDEX , JNDEX I 

IF [ SP ,Lt . SH Ax I GO TO G 30 

IF_.lt.NDLx.LD, JRQNI GO Tp_|OCH... 

AftN x AlEN + T AU ( I NOE X , JNDEX ) *SMAX 

INDCx -J iliDfX -i 

StVE IT = ^LVtNl * SHAX 


RWRODUCIBlLirY OF THE 
Sal PAGE BPOO^ 
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GO TO SOI 

aTTCTUaTIOm LOTIT^^OR THET'jrTt“W“DE^' ANlS" ETa lTr"VO' DES 

7S0 irtHZlINDEX +I)_,LT. ZtJ») 60 TO 650 

'bUNo'lE from' I<E6I0N( fNDEx'i JNOEX J INTERSECTS REGION (I NDEX’t JNOEX- U 

SHAX «» (Z( JI - Z ( J-1 ) 1 / COS ETA 

IF (j stiAx » izin - H ) / cosEta 

7bl SP » (Xf - ATENI / TaU( INDEX ,JNOEX I 

"if’iSP .LEi'sHAX) 60 TO 600 

ATEN ■ ATCN + T A U ( I ND t X , JND E X I « S H A X .... 

JNOEX J> JNDEX - ( 

SE V ENT » SEVENT ♦ SNA X 

J n J* I 

If JHOEX»JZ HUNDLE will NDT I NT E R SE C T C 0 NE ( JNDEX - 1 J US E T HETA L T 9 0 DE G LOOP 

' IF lOHUEx.LE.JZl GO TO 301 , 

GO TO 7 SO 

UUNOLE f ROM KEGI OnU NOLX , JNDEX 1 ' I NTERSECtS "reg ion ( I NDEX'’+ I , JNOEX ) i 

650 SHAX * (HZUNUEX * ) - Z(J-D) / COSETA 

1 f“ 1 j" .Eli, ' U' ■ SMAX index"' + rr -'H ) / C0SE""TA" 

_5P. = (XT-aTENI / _ r AUI I NDEX } JNDEX )_ 

IF (5P .LF. . SHAXl 60 TO 600 

IF (INDEX .ED. IRGN) 60 TO ICOl _ 

ATlii * «1LN ♦ TAU (INDEX ,JNOF.X I •SHAX ” 

_ INOLX a JtiOLX*! _ 

" "se Vl"n I » ’'SLVLnT ♦ ’SMAX’ 

65 i IF IhZUt.DLX +n .LT, ZIJI) 60 TO 652. 1 

SHAX o (ziJi _ HZ (Index)) / coset a 

1,0 TO 75) 

652 ;.MAX"» (H/UNDEX+IJ - HZ("'iNOEX) ) / COSETA 

_ _S£_ “ 7 TAU ( I N DEX , JNDEX > 

. Sh'a'x) go to 603 

IF (INDEX .EO, IR6N1 60 TO lOQl 

‘ATEN • AIEN +"t'aU ( I ND e'x ,’j'nU E X ) •"SHAX. 

I NUt X ». 1 NDE X+ 1 _ 

SEVEHT' i 5EVENT ♦ SMAx' 

1,0 TO 65l 


6DC CONTINUL 

CALCULATL C D OR D I N A TES. OF SCAT ER EVENT 

I E V E N t = 1 N d'e x” ’ ' 

JCVENT » JNDEX __ 

'sevent » s'ev'ent ♦SP ' ' ' 

SE5N LT « SEVEn ToST NETA 

H = K + C0‘5'LfA*"5£VENT 

__ SS^SESUL I • *2 

R2b»R 1 St 55 + 2. oSESNET^R'MCds'i ALPHA! 

R2«SNRT ( H25) ' 

ARbUMTa ( K 1 5 + R2S-'s"s') / (’2»«R 1 »R2 ) 

!F (AR6UHT.LT. -I,) ARGUM T ■»-. 99999 

IF ('AKbUinTVGT. I .n 1 AR6UH T«0. 99999 

2D1 BE T A-AC05 ( ARbUHT) _ 

*'PHl'l'=«PHI ) +BETA 

_ IF I alpha .6T . p 1) PHI I« PH1 l-2 .»BETA 

1"f‘ '( PmI I .GT ,T.\OP I ) PHl’i-PHI f-TWOpi 

'^‘.’’li'i'LTj^O.n I P H 1 I =.PHi,Lil?1.0 M 

2 2 2 ‘R t S B r'z S 

R lBh2 

KLDGt- = R*’! AnG I JNUF X 1 


PHI 1-PHI 1-2, •BETA 
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168 

I'b? 

- 

l 7 I 

All-- 
i 73 

I?** - 
1 7 b 
1 ' '* 

1 / 7 

1 / Ji„ 

I 77 

1 Hti . 

161 

ia .2 


IFIRE OGt .G T.R 1 1 GO TO 111 2 


JNDEXaJHUEX'* t 

LEJ JNDEX ttE,5LR6ri.L_GP-. T0..11 12 

I XPRo I 

I_FJ C 0 S ETA .GT.n.m 1 XPR»Z 


ZE.SCAP«i ( J+1 ) 
51GUE r»>LVENT 
return 


I I 


12 KNDEXbJkON* ( iNDEX.rJI.'tJNDE.X 

’’ C ALU RANUOti ( U 1 

J^FJ U . L I_. C m n T A IKN DEX ) 1 GO TO 

ISCATl" I NDEX , JNUEX ) = I SCAT ( 

_ _,iXPRaJ 

RETURN 

_ 25,0 JHLM 1 T ( K.NPEX ) alH£J9lJll<bPEXij?,L 


2 M. 


index, JNOEX) ♦ I 


) ft 3 
1 

I XPR«3 
RETURN 


f'30 IXPK»l 

t 

ZESCA>^«7IJ) . 

1 .7 

SI Gut Tbs EVENT + SH AX 

i Hi 

,_RETUHN , , . . . 

! i‘7 

lOoi !XPK=2 

» V 0 

/ESC AP»Z I J 1 

1 7 1 

SlGHtlobEVENT+SMAX 

t'72 . .. 

return 

1 -.'i 

END 


“■* *■' 

<r.b cHisE 
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l,ti;-AL8IN20 2»TPFS.CH0SE 

1 

2 


SUBHOUTlNE CHo'SE ( p"l ,p'2 , RO^tS » SM 1 N 1 1 OUT ) 

OIHENStUN PI(3I.P2(31 ,HOOTS('ti2) J_0E_{^1 


H 
“b 
6 
■ 7 
8 
V 
JO 


■range ( a 1 .7 J , Z I ,X2 . Y2 ,/2»hSC|RT < ( X 2-X H o*2T< T2-Y'n •»2* I Z2-Z l> •• 2 I 
I0UT»0 — 


1 I 

u 

13 

J •! 
lb 
I*- 

'I? 

18 

IR 

2'1 

Zt 

22 

23' 


eps^uoe-h 

AL°RAhGL(PI(I) ,Pl (2>.P1(31 ,P2(1I ,P2<2)»P2t3l) 

"oo tc 11 » 1.2 

TXnKOOTbl 1 I I 1 1 _ . 

TV“rtOorS i 2.11) 

ALl«“AUb I (TX-Pl C n >*<P2' 1 > * + <TY-PI (2» ••lP2t2)-Pl (2) > 

e -H TZ-P I C 3 )J » I P?< 31 -P I ( 3) ) 1 /AU 

AL2»AiJS ( trX-P2n))*(P2(I)-PUll)«'tTY-P2(2))*(P2(2J-Pl<2)) 
" . + » T 2 - P 7 (.3 ).) « ( P 2 ( 3 1 -P. M 3 ) 1 1 / AL 

*IF ('ABSi { AL- t AL I ♦AL2) ) /AL ) .GT .EPS J GO TO 20 
n^SIOEl I HfJ 

■■ 'to' 


GO TO t- 

22 iNbl DLl 1 1 )°0 „ . _ 

lO” CONTINUE 

IF ( I Nb I uE I n .EQ . n. and. inside < 2 I.,EQ«Q1 

IF ( I NS I UE ( I ) .E'3.0) GO TO 21 

IF tlNSI DL ( 2 ) .EU.,!? L '?Q- TP__22 

if' {Kubl b'( H , ir.6YiK06TS'(8,2) 1 GO TO 21 


60 TO 23 


28 

22 

SMIMl 1 )=KOOTS [ 1 ,n . 



'SHI N 1 2 ) »NUOTS ( 2 . 1 1 

2b 


Sh IN I J 1 =HOOTS ( 3 , n 

27 

28 


SHIN 1 8 I *KOOTb (8 , 1 ) 
GO TO ICO 

2? 

21 

SHIN! 1 (“KOOTSl 1 ,2) 



5HIN(2)=H0!JTS|2.2I 

J t 


SMlN(3)*l!U0Tb{3.71 

)2 


5HIN1 8)=K00TS(8.2) 

33 “ 


GO TO ICO 

38 

23 

I OUT» I 

)b 

34 

100 

return 

END 


VPKT.S OIFVDC 
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t-ALBlN202»TPF S.DirV0 C — 

■'l “■ SUBROUTINE OlFVOCISU.PHHANGiUI 

■ "j cfV'r* M 0 D I F 1 E d”d i'FvFc FOR KAblATlVE HEAT TRANSFER PROGRAM TESTING PURPOSES# 

Jj c_ — 

b DIMENSION 5U( 3) ,U(3) 

b — 

7 CALL KAHUOM (RNJl 


H CALL ,H ANIiOM- ( RNJl 

i TM«Pi»2.»HN2 

1 0 JIALFP I f H 1 /_2 ..U 

1 J ' ' if" (PHRAMCi.GT.3.A0I 

1 2 _ P.H.? A S I N ( SQR T { KH I ! 1 

13 " ' DIFFoABSlHHRANG-HALFPn 

1 'i .LT.O.l ) 

lb ’ ’ ' ^PH>>PH*HriKANb/HALFP I 

|_6 2D CON_TXNuE 

1 7 uTp kCOS { PH ) 

III _ U2P = 51NU'HMCQ5(TH) 

1 V ' U3P=»S IN tPH I *SI WITH) 

20 . pEL«SU( z I *SU(2)+gUi3 J*syiaJL 

/I IF (ULL.LT. I.E-IC) 


GO TO 30 


.Q,0._tQ._?a 


SU(2)o0.0001 


22_ PHSoACOb ( Syj 1 1 } — 

23 THS»HALf P1+ATAN2ISUI3) iSU(2) » 

21 U(l) = UlpoCOSIPHS! Xl^^P*5{NiPliSJ__ 

2b ■ ■ ■ ui 2 T' » UiP«SlHlPriSloSlNI THSJ+U2P*C0S(THS)-U3P«C0 SiPHS»«SINITh5» 

2b _...yc3) --UlP*S|N(PHS.L'»CpS(..TtlS)+U2P«§jN(THSI*U3p«COS(PF(S)*C0S(TjHSi 

27 GO TO 5C 

2 H 3 0 FH»A C (1 SJ i . r R N I R N i I — 

2*7 U l)=COb(PH) 

ja _ V ( 2 ) “S i N iPH ) »cos I T-H 1 - . •- 

31 ”u(31«SiN(PH) •SIN(TH) 

2 2 50 RETURN . - .. 

33 ""end 


vPKTfS’ DISK 


REPRODUCIBILrrY OF THl 
OETGINAI. PAGE IS POOR 
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Lf L. 


.ALetN202*TPFS, 

DISK 




1 

2 

C 


SUBKOUTlNt DISK | I F 0 R , NO A T A t P . A , X T . I H I T ) 
1FOR"0. KEAO INPUT OAtA 



3 

H 

c 

c 


IFOR»l, CHECK FOR HIT 

IHIT E(J D, NO HIT ON THE DISK 



5 

6 

c 


IHIT tit 0. SCONE A HITe 
INCUUOE liLOH.LIST 

EQUAL TO NSIDEA NUMBER 



7 

a 



OlHtNSION A ( 3 ) ,P{ 3 > . KT t H ) 

DETHNT1X11,XI2,X13,X2|,X22.X23|X31,X32.X33I « 



9 
1 □ 


1 

2 


Xlt»X22«x33 * X2t»X32*X]3 
X|1«X23<>X32 • X22 sX13«X3| 

+ X3i*Xt2*X23 
- X33exl2ox2l 


i 1 
1 2 



IHI T»3 
XT! 91 »2tL30 




13 
1 H 



P l»3. 19 iSV 
TWOP 1 06 .2H3 1 8 




IS 
1 h 



NA» IMT 1 UAT A ( NOft TA , I 1) 
NHo I tiT tOATA (NDATA ,2)> 




: 7 
1 B 



HbuToUATAlNDATA.*)) 

X1oOATA(NDATA,S) 




}■> 

2S 



Y l = OA lA (NUATA , 6 1 
21=L>ATA1NUATA,71 




2 1 
22 



X2 = DATA tHUATA ,» ) 
Y2"UATA IHOATA .9 ) 

- 



23 

2B 



22 = DA r A (Ht) A r A , 1 Cl ) 
A JoDATA lliUATA . J n 


. 





A2ol) A I A ( 111) A T A , 1 2 1 
A 3“0 AT A 1 HUA TA .13 1 




27 

2B 



H 1 NoRK I ig(j ( NDA 7 A . 1 1 
0R= {rtOU T-K IH ) 27 LO AT (NR > 




29 

30 



UToTAOPI/FLOATCNA 1 
l!HA& = bUf<T I 1 X2-X 1 1 0*2 ♦ 

(Y2-Yn»*2 ♦ IZ2-ZlJ»»2l 



3 I 
32 



B 1® ( X2-A 1 ) /RMaG 
02o t Y2-n 1 /RMAG 


' 


3 3 
39 



B3o(Z2-2l I/RHaG 
AB 1 = A2«i. 3-A 3«B2 




j b 

Jt» 



AH25iA3*:i l-A 
AB3«=A 1 •b2-A Zo0 | 




3 / 

3B 


I 00 

IF (IFOK-l) 
CONT 1 iJOt 

100.2013.200 


IV 

VO 



VCR 1 TE (6,1901 

OISCRoOETHNTlai ,B2,B3,Al,A2.A3iAai ,AB2iAB3) 

* 


V 1 
92 



RMAG"KlN-DR/2,a 
NSI DtXo2 




H2 

4*+ 


I 10 

NRK«0 

RMAG»KHAG+OR 




4b 

46 



IF ( RMAg.GT .ROUT ) 

ahea=rmag.du«dt 

SO TO 

ISO 


4 / 
46 



THo-UT/2.0 
N5 10EX«NKR»NA 




sv 

■>!) 


1 20 

NHKiNfifl+1 

IHoTM.Or 




b 1 
0 i 



IF (TH.Gr. rwopi 1 

N5ID£X=NSI0EX+l 

SO TO 

1 10 


S-i 

54 



s I nthos 1 6i ( th I 
COSTHoCUb ( TH 1 


• 


nS 



C |«0L rHNl (C0STH,B2,B3,Q 

i.,A2iA3.SINTH,AB2,AB3)/0l5CR 
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_|6 

5 'r 

bt) 

&9 

6 r 

A 2 
6J 
6*4 
6 b 
h A 
b/ 
6 0 

6 9 ' 

/o 

7 I 
7 2 

/i 

7 N 
7 j 
76 
7/ 
71 ) 
7 9 
)'0 
ri I 
d 2 
03 

iiH 


b/ 

bU 

uV 

V 0 

V { 
V 2 
V3 
V“ 


C2«0E THA( TJJIJ t_C QSTH . _B 3_ , A 1,3 3 , A B i ,5 |N Th , A B 3 > ^ I SCR 

C 3 • D £ T H N 'ff B“r, B 2 . C 0 S T H ,'a I , A 2 * 07 r a'b i , A B 2 » S I N f H’) / O'l 5 C ft 

CMA_G_>>_SUKT (Cl«CJ+C2.eC2 + C3;c3) _ . 

VECTOK (MDATA ,NS idea , n“xi + RHAG'«ci/CMAG 

VECTOK t NU ATA , NS t D E X j 2_)_» Y J ,♦,« M A G * C 2 H A Q 

VECTOK(JmdATA,nSI DEX ,3) “2 J + RM A G *C3 /C M A 6 

JMREA (NUAT_A ,NSlOeXl»AREA _ _ 

RNSI OEaFLOA T t NS I OEX ) ~ ~ ” 

ARiTE .(6,lVn KNSIUE ,( VECTOR « NDaTAiNS J0EX_,JJ_, 

• VAREAINOATA.NSIDEXJ 
GO TO 12C 

ISO continue” 

*o,.T9_5£i _ . _ _ . _ 

I9D FORMAT (7//39H VIEW POINT VECTORS OF AN ANNULAR DISK / ) 

I.IX.F7.o,HX,HHvPla.£l2.6.3X.RHVP2°.Et2.6.3X.9H VP3a.E l 2,6. 

• ex,SHAKEA«,E12.6 ) 

?-i?._£'''9llNUE _ _ 

OENOli-.AI»A( UfAioVtir+AS^AiS) 

IF._I Art.S {Ot NOH ) . LT. I .E-20 ) . . . GO TO SO P 

UN a - (A I •|P( i )-xl) «A2«|P(2r>Yr)6A3«(Pr3)*’Zn ) / OENOH 
. [F ON , L T . 0 . I _ _ 50„T0_P_0Q 

xVi 1 l=P(i )+A ( 1 ) »ON /'^ 

X.T ( 2 ) af* t 7 1 +A ( ? ) »DN 

xfl3r=Pl31+A(3) »DN 

_ . HX I = SUH r ( { XT ( I > f X I l.»*?tlXT( 2»r,t!.).*®2+{J(TJ.3Lr?l >**2) , ■ 

IF (KXT.GT.KOUT .OR. RXf.LT.Ri’N) GO TO SOO 

XT_(9)=0N _ _ 

NRX=INT( (KXT-KIN) /oVi 

c I =.(_XTJ 1 )^xi > /RAT 

C2b( x’f't 2 l-n i /RXT 

. . . C 3 a ( X T ( 3 ) - 7 1 ) / R X T 

ThaACOS (C 1 »8 1 +C2*02 + C3»B3) 

UF.Ta()ETMNT ICl , C 2 , C 3_| A 1 , A 2 ,_A 3 , 0 1 ia2|B3|> 

IF (UEI.LT.O,) ' " TH«f»IOPI-TH 

NTHa INT ( TK/DT 1 * 1 

1 HI TaNRXaNA ♦ nTH 

S00_C0NTINUE 

re’iuhn 

END 


PR r , b EH I T T 


44 


LOCKHEED - HUNTSVILLE RESEARCH & ENGINEERING CENTER 



LMSC-HREC TR D496763-II 


Ut£.AU ttlN202*TPF»«EmTT 
1 


2 

i ■ 
•* 


■ • . .. 

SUBROuf T nE £M jTT«NHSN,XiU,H(RlS,RI) 

IN CLUDE OIHjLIST 

00 JC3 Vo TiNRGN 

X°X»XNHUI I) 


b 

6 

~J 

a 

9 

10 

rr 

I 2 
J3 
IH 

1 i 

'If 

I « 

1 V 
20 
,zi 

2 2 _ 
23 


XO o X/U 

F ( XO .GT . 1 « ) GO _T0 200 ... 

'fbc CO'NTitiUL 

2G0 ItMlT ■ (.1 “ J J/JRGN* 

JEHIT e 1 - JrGn » (IEMIT-I> 

1NUEX_o jemit 

JNOEX o JEHIT 

lEVENT = lEHIT 

' JEVENT o JEHIT 

KEH|T“i 

■” icNOEX o I 

_C F J X_E M S I p h C 0 0 RQl NATES — 

c'a’lL KAHoblULU 

i* »_ (_ H 1H2CQ ( 1 EHIT>« U * H 2C U BE glj 

RIS o H««2«tUetTN62(3 EHIT'»l ) " TNG2 I «J£H 1 ^ I ) * JEM I T ) ) _ 

«i “ SuaTtRlSl 

C SE LECT EMSSION OIR ECT.ION 

CALL ’kAh00H<uT' 


2H 
2b 
26 
2/ 
2 8 
iv 

30 

Ji 

32 


thetabTiiiori ou : 

CALL RANLiOmUl 

COSE T A = 1. -„.2«»U_ 

SINETA * SORT! !• - CoSETA»»2 > 

TANETA =■ SINETA / COSETA 

C LL RANoOHlui 

PHI)=TW0P1«U 

’ rt e T U K N 

END ■ 


VC-tT.S ESCAP 
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ttt.ALbl 


1 

"3 

H 


)?*TPF*.ESCAP 


SUBROUTINE ESCAP (X.A) 

^>Atl-yuE J5£OH,L I ST„ 

iVc LuuE ”u I M ,'l i ST ' 

C positive Xlt) IS IN the PLUHE exit di re ction ; 

c set the uhigin at the center of the PLumE base PUANE. 

0|MENSI0i4.Xl3) ,A<3L 

HEMITIKEMi't) X NEHitiKEHIT) + I 

IF U PLUME. Eg, 3 1 GO TO RSa 

CALL SOHTMC (xIa) 

I F f I D . t <J . 0 I GO TO 300 

00 log’'! r&»i ,’ntargt 

IF_ t 1 TG.nl. 10 1 . GO. TO 100 

60' i 13 L=l ,3 

LP._1L*NL. ( IDJ SK+JJl _ G0__T0,.UJJ 

NA°NAKL A ( I 0 ,L I 

00 I 2J1 l.N A f I , N A 

'if I I wa ,’lit . lOAHEA 1 ' G0'fo”i20 

NIJ Una ,1TG,L1»HJT( INAtITG.L)tis 

120 continue 

_UC CONTINUE . 

'ioc CONTINUE ' ' 

3CQ continue 


HaM*l 

_ 60_T0, 6J0 

<150 iF*'(M’.«,E. iT - - - - go’ TO RSS 

.jVRlTE ti,451i 

455 'stop " ~ - - — 

451 FORMAT i////inX,45H IPLUHE-3 IN DUAL PL IS NOT APPLICABLE 


500 RETURN 

END 


G0__T0, .UJJ 


GO TO 120 


►PKT.S ESCAPE 
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ttt-ALB tN202»TPFS.ESCAPt ^ 

■'r' '■ SUBH6 ut1wE‘ESCAPE<H.H 1 t I XPR »Rl iRlStZESCAPJ 

2 INCLUDE (iEOM.LISJ 

3 iNcVuut biMiVisf’ 

M DIMENSION X(3) ,AI3> 

■ sT c SET the Origin at the center of the plume base plane. 

b C POSITIVE X(l) IS IN The plume exit direction* 

7 NEMITIKlHIT) o NEMITIKfrtlTI ♦ I 

ti _ X ( n »H-ri 1 . 

'v A I II =CUSE TA 


i 0 

AI21«SlHtTA*COSITHETAJ 





" 1 1 . 

A ( 3 ) =5 1 NL T A • S i N ( THET A ) 





1 2 

HbHI 




... 

u 

x'i2»oH»LUSlPHl I r ’ 





1 M 

X ( 3 ) «K»5 INI PH I 11 





1 &■' 

ET Abacus (COSETA I 





\ ^ 

IF ( tPLUML.E0.31 

GO TO 

950 



■y 

CALL SUKING tX.AI 





1 ^ 

IF < ID.LU.Q) GO TO 201 





1 V 

'OO 103 1 TG° 1 . UTARGt 





ZD 

IF I1TG.IIL.ID1 GO TO 1 UO 






do' HOO L«'l .3 





22 

IF (L .Nl . ( 10 I SK. n 1 GO TO 900 





'23 

NAo’NAhL'A ( 1 0 ,L ) 





2H 

00 203 IHAbI.NA 





25 

IF ( I NA.nE . I OaREA ) GO TO 200 






HIT(INA.lTG.LlBHITIlNAiITGiUl+l. 





27 ■ 

io'5 "continue 





26 

9C0 continue 





29 

I'o'o ■ CONT InUL 





■ T 

GO TO 300 





:kl 

201 CONTINUE 


* 



32 

300 CONTINUE 





33 

" ti B m'* l" 





39 

GO TO- 500 






9S0 CONTINUE 





S6 

IF (H,6E. I 1 ■ 

GO TO 

955 



37 

'nrg’nb i hgnbJRgn ■ 





3B 

WRliE <10 I RGN . JKCN iRAD I AT |REX 





■39 

00 9'51 K*l,10 





HD 

00 951 Ib| . IRGN 






9 I 

951 WHITE (IQl tPROPtX,! .J) . J«liJRGNI 





92 

.'WRITE (101 tGAHMAXlJI. JbIiJRGNI 





93 

K"a'c"' ■ 





H*\ 

DO 952 IbI.IRGN 





95 

WHITE ti'Dr ITAUPlliJl. J»i|jRGN) 





96 

WRITE 1101 (TAUG(I.J), JbI.JRGNI 





97 

WRITE (iOJ (TAU IIiJI, J=liJHGN| 





MS 

WRITE 110) (CHIQTA(X + Jl ,JbI *JRGN) 





9 9 

wriYe" lid) ’(xnhu 'i k+ j 1 . j= I » jrgn ) 






HZ ( 1 + 1 1 =H2 ( I + 1 1 -H 1 






51 

writ'e do') HZ(i + n 





52 

HZ 1 I * 1 ) 'HZ 11 + 1 ) + H 1 





1.3 

952 K=K+jHGN 


• 



b M 

455 coin 1 HOL 





S6 

■ X ( 1 1 “ZESLAP-Hl 
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RXI ToiEiCAP»TANQ< JRGN) 

X < 2 » =X I 2T*S I Q8ET • a t 2 J 

X_L3AfL* ! ^ > +S 1 G8tI«A ! 3 

PHix“ArAN2(X(3>tX<2)l PhIXbPH1X*T 

IF (PH1 X. LT.0«> 

THETAX=THETA-PHU THETAXBlHSlAJLtlli 

LL_ i t ri e t a X . l t , a 

IRMITaO 

__Op Hb6 t»t,NR&N 

H5A JHMIT»lKMlT*lRtHIT( I ) -ufTi» PHIX H 

^LL lO PxT t H ,J.^LT|<<«MPXlT.ETA.THgTAX.PHl|^__ 

IF ( M •GU . 1 X® JX 1 

50 0 RE T URN 

END ” 
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ut e-alb tN202»TPF5,FRTAPE 

. j ^ p „„ ^ 

2 C head data tape «|TH lOPKT (M IRMIT i R C T P 10) 

j ‘ C' ~--“'kEY»1 , COMPUTE THE HEaTING RATE ON GEOHETRV ENSEMBLE 

H c keybz, Shall target aroung the pluhe, oelphI« 2 Pi 

”'b C KEYo3, SINGLE SMALL TaKGET ENYrRELY IN 'DELPHI .DELPHI IN "DEGREES. 

A ... c key-r, single shall Target, use cosine projection of DEyHI 

? c" ■ TX.TY.TiViS CENTER OF SMALL GEOMETRY 

R . ... c liPLH»l, single plume, 2, dual plume, nTraj is no of pair s of traj 

9 ' INCLUDE GtOH.LlST 

lilfUUDE DIM, LI ST 

ii oimension xPtai.ppoT 

U .. dimension a ( 3 ) ,P I 3 I ,TFHHmNSIDEA,3» , IPLMEI 12) ,JPLME( lait^LMEUZ j 

13 DIMENSION 1Z( J2) ,LTRUH2) 

11 _PI«3.IH159 _ _ 

is " ' fwbpi»6,2a3ie ' 

It K I C-Q _ . 

so' READ IS, Yo)"'keY .ifGTNTRAJ, DELPHI ,TX,TY,TZ 

ta _ if (NTRAJ, E0,d 1_ G o T O 900 

19 ' ' REAINO 10 ■' 

20 KIG = >C10+1 _ : 

21 “read I 10) ■lRGN',JRGN,"RA0TAf7REX" 

22 NRGN«I RgN» JRGN 

*2 3 ' "b'o 'tc "k««i , lO’" . 

2R _ 00 60 I = l,iRGN _ __ ; 

rs 6 o“ read uc) (pkop(‘k,1 ,J)'^ JoiVjrgn") 

26 READ 110) (GAMHAXI J) , J»1 ,JRGNJ 

2 7 ' ’ GAMXX»GAHMAX I JRGN ) ' ‘ 

7B TANGl JRGN)aTAN(GAHXX) 

29 K»3 ■■■ 

30 DO 61 I=1,IR6N 

31 REAo 'iif,) '(rAUPtiVj), j'al.JRGN) , ' 

3 2 .... read .110) (TaUG 1I,J), Jol.JRGN) 

3 3 ’ ' RE AD ' 1 C) ( T AU ( l‘, J') , j»i , JRGN )" 

_ .3a !1^U I 10 )_ (CHlBTA IX*J ) , J»| , JRGN ) 

"3^ ' read iloV I'xnHU I k‘+ jTi ja'l ; JRON )' 

36 (iqi HJ^I^M 

37 "' ~ 6r'keKijHGN" ’ 

3'J.,_ WR l.TC J 6 , I I ). .KEY , I^TG , NTRAJ , DELPHI ,TX,T Y,T2 

3Y ftiil Tt '(6,i'2) ‘ fR7N,JRGN.RADlAT,HEX 

aq ^ XL (Kly,gt.O) GO to 7S 

at ' NR fTt'li",! 3 )■■■' 

a2 NRITE (6,14) 

Hi' DO '70' Kar.Yb-' 

SH WRITE (6,)7) K 

4S"" ' DO '70'"i » l", I Rgn 

_ Re 70 f(R I T£ ( 6 , 18) 1 , (PROPU, I ,J) t J^ltJRGN) 

'sT l atio format I //'/ h5h1 properties in Illume regions // ) 

MB ia02 FOKHATI // 76H TP - ( DEGREES KELVIN ) t 

aa ■' * ■ 1 26 h’tg - ■(' degrees "Kelvin"') " ' f 

so 1 2CH N - { PART5/CH3 > / 

bl ■ ■■ "-"I'SH TAOP'-'I -■ ) ■/ 

S2 • I5H TAUG - ( - ) / 

.. ^ 

sa 3 2CH RP - ( MICRONS ) / 

b’s 4 I 'bl, A/t. -' ■( - " 1 “ - - - - 
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56 

S IBM HADFK • ( 

? . 1 ... 

■T HADIt 

GAM11X • 
TP », 
TG ", 

t 

57 

58 

59 

60 

7 30H HZ 

I_4(J3. FORMAT 

14(55 FORMAT 
8002 FORMAT 

- 1 EXI 
( . lOH... 
1/14, 6H 
( 14, 6H 

1 /// ) 

• nm. 2 ) __ ___ 

llEiUB I 

1 IE 1 1 «5 1 

61 

1406 FORMAT 

1 I H 1 6 H 

N «> , 

UEI1*B ) 

62 

1812 FORMAT 

1 . 14, 6H 

TAlJPa , 

1 lEll >5 ) 

63 

1813 FORMAT 

1 14, 6H 

TAUGa , 

1 1 E i 1 . B 1 


Mc/ Format 

( 14, 6H 

TAUa , 

1 lEl 1 «S ) 

n i 

14C8 format 

( 14, 6h 

RP “ , 

i lEl I tB ) 

ta et 

1409 format 

1 14, 6H 

A/e« . 

i 1 E 1 1 , 5 ) 

b) 

1410 format 

( I4,6HRADFKa, 

1 lEI loB ) 

oH 

.1412 format 

L IMtiH 

. H2 .= » 

1 leil iB //) 

69 

75 CONTINUE 



70 

IF_.( IC to 

. faT. 1 ) 


GO TO 78 


n WHITE.(6f 1400), 

Z 2 '.VUITL |A ,I40?I 


7-* ARITEt 6,1403 1 1 GAHhAX(J) , 

74. Jog _ _ 

75 00 |40~4 l,i”RQN 

7^> WHtTt't6,1405| 1,1PR0P(2 ,J,sU.,J?1iJRGNJ 

T‘7 WRITE (6,8302) I , t PROP ( 5 , 1 , J 1 , J o j , JRGN ) 

7R jlTK.1 TU 6 , 1436) 1 . | PROP ( I , I , J ) , J» 1 . JRhN 1 

7V WRl TE ( 6 , tar2 ) I, TtaUP( I ,J)',J*>l,'jRGN) 

WR I.Tt { 6 , IB I 3 ) (TAUGU ,J> |J»> fvIRGN) 

ril WRITE (6,1407) I, (TAU (l.J), JuI.JRgN)" 

. «2 J 15 ‘ * f J ? PROP (3,I,J),J»I,JRQN) . 

S3 WRITE( 6,1409) I , ( CHIaTA(K+J), J b l,JR(SN ) 

W4 Ili6jJ 4 1 0 ) I, (XR HU( K*J)f J»1,JRGNJ 

H2(i + i') » Hi'(i + n - "hi 

, WR I TE { 6 , ! 4 1_2 ) I , JHZ ( I + I > 

» 7 K Z ( I '» 1 ) a M ~2 ( I ♦ 1 ) 4' H ) . s 


B B 1_4 n 4 Ka K H G .•( 

8 9 10 FO'rhaT (’31 8 ,^6F 8.0) ’ 

..99 I 1 FORMAT ( IHI .2IHREA0 FROM TAPE_KET»_ , 1 2 , 5 X , 11 H T A RG ET NO ■ ,I3,3X. 

91 I ,I1HSAHPLE N6'“a ,l'7,3x',eH6EL>HI = , F6 .'2 , BH "oEG , ,SX, 

92 J? 1.PHTX,TY,TZ “_.3F7.3 /.) _ 

■73 12 FORMAT (7ri IRgN o , I 3 , 3 X , 6M JR GN » ,I3,I0X, 

99 .. ! .25HT0TAL JJAl)! AhT HEAT RATE ■ ,lpE10.R,7H WA TTS t 

95 2 6X.5HREX =,i:PF8.2,3H CM // > 

. 9^ 13 FORMAT ( I OX , 5 P ti 6l)B SC R 1 P T I 0 M K IN PROP ( K , 1 .* J >_ AR_R A Y 

97 1 // 1 OX ,5nHX = 1 , PaRtTcLE NUMBER OEMS I "fY (P/CH*63) 

90 2 iBX,5nriKaZ, particle TEMPERATURE (DEG KELVIN) 

99 3 / I OX ,SOHxa3, PARTICLE RADIUS (HICRONSI 

1.00 _ 4 ,sx,GnHK = 4i Projected area of particle (micronq»2i I. 

101 14 FORMAT ( lOX.BOHKnB, GaS TEMPERATURE (OEG KELVIN) 

JOZ I static pressure (PSJA) 

1U3 2 7 l(ix,'bf.MK = 7 ', '~MOLe' FRACTION FOR CO T- ) 

|04 3_ ,bX,5nHKa8 ..MOLE FRACTION FOR Co2 I-) 

'05 4 /IOX.b6UK«9,” MOLE FRACTION FOR H20-(-)'“' 

106, B , bx ,b(jHK = 1 tIOLC FRACTION fOR HCL (“>. L 

107 17 FORMAT (/// I 7H OUTPUT FOR PROP ,5X,3H] a, 13 / )' 

ipli 1 6 FORMAT ( I 3 , IP 1 3E I 2,4 ) 

109 20 format '( I I 0 ,5x . IPSL 1 4 . S ) ' 

I 1 0 .7 8 CONT ( NUh 

111 DELPHI aUKLP'i I /S7. ?9B78 
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1 12 


OELHITal »0 




1 1 3 
1 l*i 


IF |KEY.£Q.4> 
IHISSoQ 


DELHIT-OELPHI/TWOPl 

. 

1 1 9 
1 16 


I SCOREoC 
IF (tCEY.GT.OI 


GO TO 90 


t 1 7 


IF (NEYiLUiO) 


GO TO 900 


1 1 B 


N«0 




1 IV 


DO 81 Io| ,12 




1 ?a 


JPLME ( I 1 bO 




1 2 1 


6PLHEIHbJ 




1 22 


LTKUl 1 }«0 




1 23 


12 t I )oo 




124 

8 1 

I plhe n )=o 




1 2f> 


IOUTbO 




1 26 


J0UT«0 




12/ 


K0UT»0 



1 

1 24 


LOUT»i> 




1 ?v 


OPH = Trt(jP 1 /I 2.n 




1 ^0 


UEIbH [ / 1 2.0 




1 3 1 

82 

PKbC.3 

'■ ■ 



1 3? 


ET=0.a 




1 J3 


N aiO 1 




I 14 


IF (N.GT.NTRAJ) 


GO TO 88 


1 JS> 


l-I 




1 36 


J = 1 


< 


13/ 

U3 

CALL IOPaT <H. IHMIT.ZS.R, eta, theta, phi »2> 



t 38 

US 

CONTINUE 




1 3V 


IF ( 2S,LT.0.0) 1 2 1 1 1 °I 2 ( 1 1 «t 




1 4 3 


IF (2S«Gt^»C«0«AN0«/S«LT •2*0) 

I 2 { 2 ) <• I 2 ( 2 > 6 1 



1 4 1 


lF|2S.GE.2.0.ANU.2S,LT,4.a) 

I 2 ( 3 ) - 1 2 1 3 ) « 1 



1 42 


IF(2S.GL.4.a,AN[).2S.LT,6.a» 

I Z(4)bI2(4)+1 



\ ^ 3 


IFl2S.GL.6,0.AN0.ZS.LT.e.CI) 

12<8)B{Z(S)4l 



) H H 


IF(2S.GE.B,0,ANU.2S.LT»13.) 

I Z(6)nIZ(6)..t 



1 Mb 


lFl2S.GL.io..ANU.2S.LT»I2.J 

1Z(7)»IZ(7)+1 



1 46 


IFL2S.Gt,12..AND.ZS.LT.14.l 

I Z ( 8 ) B 1 Z ( 8 ) -. t 



147 


1F(2S.0E. 14. .AND.2S.lt. 16.1 

IZ(9)oIZ(9)+r 



1 48 


IF(2S.GE.16.,AND.2S.LT<tU.) 

I Z( in)°lZ( 10)4’1 



1 4 V 


IFUS.GE.lB.. A ND.2 S.lt. 20.) 

IZ(ll)aIZ(ll)4t 



i so 


IF(2S.GL.20.(n 12(12)^12(12)61 



iSi 


T l“PH 




1 S2 


T2 = ET 




1 b3 


TRUPHbPM I +THETA 




1 b4 


IF 1 THUPH ,eT. T60P 1 ) 


TRUPHoTRUPH-TWOPI 


ISS 


DO 86 I‘l , 12 




\ b6 


IF (PHI.GT.TI .AND. PHl.LT. 

( T 1+DPH 1 ) 

IPLMECl l•IPLME(l)+l 


IS/ 


IF (ETa.gt.T2 .and. eta.lt. 

IT2+0ET) ) 

JPLHE( I >«UPLME(n + l 


1 S8 


IF ( ThET A ,GT .T 1 .AND. theta 

.LT»(Tt*DPH) ) 

KPLHE( 1 )»KPLHE( I )♦! 


I bV 


IF 1TKUPH.6T.T1 .AND. TRUPH 

.LT. (T 1+DPH ) ) 

LTRU( I )«LTRU( I »+l 


I 60 


T l-T 1 *DPh 




1 6 1 

S6 

T2=T2+ULT 




162 


IF iPHt .GT.TAOPI 1 


IOUT=IOUT*1 


i 63 


IF (ETA.GT.PI) 


JOUTbJOUT+1 


i 6H 


IF ( THE r A ,GT. TWOP I ) 


KOUTbKOUT* 1 


1 6S 


I F ( IHUPH ,6T. T'.iOP 1 ) 


loutblout+i • 


1 66 


GO TO 82 




167 

B8 

N = N« 1 
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I 68 

TaV 

I 70 __ 
171 

IL? 

I 73 

I?** 

I 7b 

I 7'>. 

177 

I 78 

1 7V 
I 80 
lUl 

IH2 

t»3 

I BH 

I ub 
I B 6 
i U/ 

1 8 U 
1 U'V 

I’O __ 
i V i 

! y?.. .. 

1:3 

I VS 

196 

197 

I ’ i* . ^ 

1 99 

■ePO . . 
?ai 

7J2 

2 Si” 

? 0 H 

20 s 

2 ij 6 

2Q7 

7 JB 

209 
2 10 
21 I 
2 12 
213 

7 i 9 

2 1 J 
2 16 
7 1 7 
2|tl 
21 V 
2 2 0 _ 

7 21 " 

222 
723 


39 


-IS.* TE 16,89 1 < tPLMEl 1 1 > li t , 12) I ( JPLME <*J> ,J«1 . 12) , ( KPLHEl t I t lat , 121 
I ><l-TRU(l),:«i,l2),Clzm,I>]«t2)i lOUTt JOUT,KOOT«LOUT«N,NTRAJ 

form at < IHl , 21HN0 OF EMIT IN DEL PHI ,iXo>2I9 // 

> lX,2lHN0 OF EMIT IN DEL E T a' ' ',’l X . I 2 1 9 //“' 

^ Mi2IHNU OT Eh { I_i N_ T H E T A a. I Xj 1 2 1 9 /.I 

3 lXi 2 iHN 0 OF Emit in tru pwi ,lx,i2l9// 


C • « ♦ 

90 


GO TO 50 


KNT»D 


iXi2iHN0 OF Emit in tru phi 

JX_.2lHNq._0F, EMIT. IN DE.L__i ,IX.,1219 / / lj__ 

IX.27H10UT JUUT KQUT LOUT N NTRAJ i7I9 ) 


SO 
9 1.. 

93 


M»0 

-l-HUU”? ... _ 
Ihit^ 2»6 

-E. 0 _BS_I “1 iNSI 0 E 4 
DO 80 J=l,NTAR6T 
DO BO K = 1 , 3 


• 0 . <1 


H I T ( I , J ,K ) ‘ 

.KNT»Kn.T + 1 

I F « Kil T .liT .NTRAJ I 

.C A L U . I 0 P X T I H , I H H LL, Z 5 J R . E T A , TH ET A . PH 1 . 2 1 
1 p Ass=a 

J£ UV.«ll.o»Jl 


GO TO 500 


KEY .EQ.21 


IF IKtY.tu.l .OR, 

_PH2nATAiJ2(.TZ,X.YJ 

IF IKtY.EQ.N) 

. !f_. ! Ft y .Ly . 9 ) _ 

PHDlf»AbblPH2-PHI ) 

-L.r J.p>!PI£_».G.TaIiE LphI/2. 1 


G O TO 9fl 


GO TO 9* 


PHI opH2 
GO TO 98.. 


96 X U 1 = 25 
.XU.)“K?COb(.PbU 

' X 1 3 ) »R.S I N ( Ph I ) 

.P.HlSAVsPHI _ 

PH I Bl'H 1 ♦THETA 
P ( I 1 nCOb lETA 1 


-GO TO 91 


.92 


P121»SINILTA)«C0S(PH1 1 

P|3l=bIN(trA)«SlN i_PH I J 

IF (NPLM.EO.il 
JPAS_b«l 

kFPLM'aT” " " 

00 99 1°1 .3 


GO TO 97 


99 


XPIi )=X( 1 ) 

Jl^PJllePtl) .. 

CALll TRANSF ( XP Tx , PP » P * K FPLH i 6 1 
.CALL INTKC P ( X.P.KFPLH.KOUTtXPfPP^ 
IF (KOUT.ttJ.Q) 

IF (KOUT.EQ.I I 


IF 

IF 

GO 


I LOUT .to. 21 
lIPAbb.EQ,?) 
TO lib 


GO TO 97 
IHlTP|nlHlTPl»l 


IHITP2-IHITP29I 
GO To 91 


C 


97 continue 
call S OH T H 6_J X ,P ) 


96 


, J F . ( i 0 . G T . 0 .1 . 

|H’lbS»'lHlSS+l 


.60 TO 100 
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22 H 

225 

226 

227 

228 


too 


IF lIPAbb.STiO) 

If 'I'NPLM.Eo.i ) ■ 

i m sS.lH15S»l 
do TO VI 
CONTINUE 


GO TO 115 

60 fo’vr 


22V 

2.10 


T? 1 KEY .taT. 1 ,AND» lU.NE.ITGl 
1 NAe I 0 ANE A 

GO TO 115 


231 

232 


1 I TGnlD 
L015»IOIbK+l 



233 

?3H 


HirilNA.IITG.LCilSI-HlTllNAillTG, 
1 5C0KE» I SCORE* 1 

LD1S)*0eUH1T 


23b 
2 36 

U3 

IF INPUM.LN.l .OR. 1PASS.EC|»2) 
IPAS5=2 

GO TO 91 


2 3/ 
238 


KFPLH»2 

PHl=Pi-PhlSAV 


1 

2 JV 
2 HO 


X ( 1 1 =75 

X ( 2 1 =H»CUS ( PH I ) 



2H I 
242 


Xt 3 J_=ii»51NIPHI 1 
PU I =PH I-THETA 



243 

744 


P( 1 J»CyblLTA) 

P < 2 1 =S I N ( ETA I.COS (PHI 1 



2 4b 
24ft 


P ( 3 ) =5 I N 1 ETA ) »S I N 1 PH I t 
I'.O TO V2 



24/ 
2 48 

530 

CONTI hue 

WHITE (6,5101 KEY . I TG .NTRAJ. I SCORE 1 IHI Tpi , IHl TP2 .IMlSSf 1 RMI T 


24 V 
2b0 

SIO 

1 

FORMA! (///6H KEY = , 1 3 . 5X , 5H I TG 
1 ,l7,6X,lflHlHlTPl/2 =,216 

ii.t3,SX,7HNTRA>J ■ . 1 8 . SX . SH I SCORE ■> 
l,5X.7Hlnl5S =,I7,5X,7 hIRHIT a,I7/J 


2bl 

2b2 

12C 

IF (KEY.NE.4I 
DO 121 istiNStUEA 

GO TO 600 


2S3 
2- ' 

1 21 

00 I2I J=1.3 
TEMHl T( 1 ,31=0.0 



2 a J 
?i>6 

1 22 

PH = 0. 

PH*PH*1)LLPH I 



?L7 

7S8 


COSPH=C05(PH1 

IF (cosPm.lt. n.i 

GO TO 130 


?bV 

260 


DO 12b LU 1 S= 1 , 3 
NA=NAREA( I TG,LDIS> 



76 1 
2ft 2 


00 !2b K=1.NA“ 

TEMhIT (K ,L01S) = TeHHlT(K.LDISl*HlT<K.lTG.UDlSl«2.«C0SPH 


263 

264 

125 

CONTINUE 
60 TO 122 



;»6b 

266 

1 30 

DO 132 1*1.3 
00 132 J=1 iNSIDEA 



267 

26« 

132 

600 

HI T ( j, 1 0 , 1 1 =te'hh: t ( j . 1 1 

CONTINUE 



7ft V 

270 

c 

OUTPUT The RESULTS 
1 REMIT ( n = I RMI T 



2/1 

272 


If (KEY.6T.1) 

CALL OUTPUT (Hl.NRGN.Ol 

GO TO 610 


273 
2 74 

6 10 

GO TO 930 

CALL OUTPUT (HI ,NR6N, ITG) 



77b 

276 

V30 

GO TO 53 

return 



777 


END 

• 



53 


LOCKHEED - HUNTSVILLE RESEARCH & ENGINEERING CENTER 



L,MSC-HREC TR D4 96 76 3 -II 


U t-ALBlN202»TPFS. INPUT 

'l SUBROUT iNE~r NPUT t NRGN i H | , FACTFi 

,2 C POR single PLUWEt 2 FOR DUA L PL UME IN C OWPUTI Na RAPlAa 

3 ■ IN~cVU0E''DIM,Liis'T 

± B19 format 171 Bt3FB.ni 


6 BBS FORMAT ( flFtO.2 ) 

* .. .Z ? _I3bh 1 AVERAGE number DENSITY Op PLUME n ,E|S. A . I X . 

7 I ISHPAHTS/FT3 OR ',El5.5,IDH PART/CM3 ‘ 


H 

2 

2 1 H 

Total plume volume ■ .El5 

•5.5H REX3,10X 

9 


9 

3 

2 1H 

N022LE EXIT RADIUS = ,Fb. 

2,3H 

CM / 



1 0 

4 

26H 

total RADIANT 

HEAT RATE » 

,E13.4,7H 6ATTS /i 


1 1 

OIMEfJblUIJ A [ 2 1 , YY 12 t . Yl 325 1 t 

CAB514) 





1 ? 

complex indx 







I3 

DATA 1 Y ( I ) , 

I « 1 . 7 1 ) / 







! H 

1 

0 • 3 p . 1 7t -7 

, .I36F-6 


.756E-6 

$ 

.3I7E-S 

, .106E»4 

• 

lb 

2 

.3C1L-4 

, .738E“4 

« 

. 1 6 i E - 3 

■ 

•32IE-3 

. .5B9E>3 

• ! 

16 - 

3 

.03131 

. .03164 


.00252 

• 

.00373 

t .00531 

♦ 

1 7 

4 

.00733 

« • j C Y ti 3 

1 

.01 285 

• 

.01643 

1 .02060 

• 

1 G 

5 

.02537 

. .03076 


.03677 

f 

.04338 

1 .05059 

» 

i '> 

6 

.Obtl jH 

t • 6 6 7 2 


.07559 

1 

.08496 

1 .09478 

» 

2 0 

7 


• « 1 t b 6 7 


.12665 

1 

• 1 3795 

, .14953 

9 

21 

B 

.16135 

, .17337 


<> 18556 

« 

.19789 

• .21033 

9 

22 

9 

. 222U5 

« <1 2 3 ^ 3 


.24803 

t 

• 260^3 

, .77322 

9 

23 

A 

.2d5/6 

, .29825 


.31067 

t 

.32300 

t .33523 

9 

24 

n 

.34734 

. .35933 


.37118 

• 

• 38289 

. .39446 

9 

:s 

c 

• 405B5 

, .4i7r.a 


.42815 

9 

.43905 

, .44977 

9 

26 

0 

.46031 

. .47367 

t 

.48085 

9 

.49084 

9 #b0066 


27 

e 

.51029 

. .51974 

» 

.52901 

$ 

. 53809 

. .54700 

/ 

28 

DATA 1 Y ( 1 1 , 

1 »72 . t 4 1 1 / 







2V 

F 

.55573 

, .56429 

« 

.57267 

« 

.58067 

t .58691 

t 

30 

c 

.5967H 

, .60449 

$ 

.61203 

« 

.61941 

t .62664 

♦ 

31 

H 

• 63371 

, .64063 

$ 

.64740 

* 

.65402 

. .66051 


32 

1 

.66685 

• .67 3o5 

* 

.67912 

f 

• 68506 

. .T9087 

i 

33 

J 

• A Y ft b b 

. .70211 

$ 

.70754 

1 

.71286 

. .71806 

• 

3H 

K 

.72315 

. .72813 

1 

.73301 

1 

.73777 

, .74244 

» 

3 b 

l 

. 74 700 

. .75146 

1 

.75533 

9 

.76310 

, .76429 

9 

3 8 

M 

• 76BJB 

. .77238 

1 

a 7 7 A 30 

9 

.78C14 

. .78390 

$ 

J7 

N 

.7H757 

, .79117 

$ 

.79469 

9 

.798 14 

t .80152 

9 

38 

0 

.80482 

, . 8-1006 

t 

•81123 


.81433 

■ .81737 

9 

■^Y 

p 

.82035 

, .82377 

1 

.82612 

1 

.82892 

, >.83166 

9 

40 

. « 

.B34Jb 

, .83698 

Q 

.83956 

* 

.84209 

t .04457 

9 

M 1 

R 

.84699 

t .84937 

» 

.85171 

f 

.85399 

• .85624 

t 

42 

S 

.85843 

. .86359 

t 

.86270 

» 

.86477 

, .86681 

/ 

43 

DATA 1 Y m 1 

10142.211) / 







44 

T 

.B68B0 

, .87375 

1 

.87267 

1 

.87455 

, .87640 

% 

4S 

U 

.87821 

, .87999 

0 

.88173 

1 

.88344 

« .88512 

1 


V 

• .886/7 

, .88839 

1 

.88997 

1 

.89153 

I .89306 

• 

47 

w 

>aVHb7 

, .89654 

• 

. 89749 

• 

.ff909 1 

t .90031 

9 

H8 

X 

.93168 

« • V '1 3 r* 3 

1 

.90435 

• 

.90565 

i .90693 

» 

4 V 

Y 

.90819 

, .98942 

I 

« 9 1 063 

• 

.91182 

, .91299 

t 

bC 

2 

.91414 

. .91577 

1 

.91638 

9 

.91748 

. .91855 


b 1 

1 

.91961 

. .92364 

1 

.92166 

9 

.92267 

• .92365 

9 

b2 

2 

.92462 

. .92558 

1 

.92652 

• 

.92744 

. .92835 

9 

b 3 

3 

.92924 

, .93012 

1 

.93098 

9 

.93183 

. /93267 

9 

b4 

4 

.93349 

. .93510 

6 

.93666 


.93816 

. .93963 

9 

bb 

5 

.94134 

, .94242 

t 

.94375 


.94504 

. .94629 

t 
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S6 

6 

•94751 , .94869 

1 

*94983 

, .95094 

t 

•95202 


S7 

7 

.95307 , .95409 

1 

.95508 

■ .95604 

• 

.95698 

/ 

&a 

DATA (Y< II tla2|2.2Sn / 







59 

8 

.957B8 , .95877 

1 

•95963 

, .96046 

ft 

.96128 


6 0 

9 

.96237 . .96284 


.96359 

. .96432 


. 96503 


6t 

A 

.96572 , .96639 

1 

.96705 

i .96769 

$ 

. 96831 


fa 2 

B 

.96892 . .96VE1 

« 

.97809 

. .97065 


•97120 


6 3 

C 

•97174 , .97226 

1 

.97277 

. .97327 

t 

.97375 


-64 

0 

.97423 . .97469 

L 

.97514 

1 .97558 


.97601 


65 

e 

■97644 , ,97685 

f 

.97725 

1 .97764 


.97802 


66 

F 

►97840 . .97077 


.979 1 2 

. .97947 


. 97982 


6 / 

G 

•98315 , .98348 

% 

•98080 

. .98IM 

ft 

.98142 


6 b 

H 

.,•981 72 , ,982M 

1 

..98230 

1 *98258 

- „J 

.98286 


fa V 

I 

•98313 , .98339 

f 

.98365 

, .96390 


.98415 


73 

J 

__,9U440 , .90463 


• 98487 

• *98510 


• 98532 


7 1 

K 

.9BS54 , .98576 

% 

.98597 

• *98617 


.98638 ” 

g 1 

72 

L 

.98658 . .98677 

-1^ 

.98696 

1 .90715 


.98734 


7 i 

OATA 1 ni ) |1>>262,322) / 







74 



.98752 , .98769 


.98787 

• .98804 


.98821 


7 5 

N 

.98837 , .98853 

1 

.96869 

• *98885 

ft 

.98900 


7 6 

0 

_.98'rib , .99051 

1 

.99165 

i .99262 

ft 

. 99344 


T1 

P 

•99414 , .99475 

% 

.99528 

• .99574 

ft 

.99614 




0 

.99649 , .99680 

* 

.99707 

i_ *9973? 


.99754 


/ 1 

R 

-.99773 . .99791 

» 

.99806 

• *99820 

ft 

.99833 


_dO 

_ S 

_.99845 j, ,9985b 

» 

.99865 

• .99874 


.99882 


in 

T 

.99889 , .99896 

ft 

.99902 

• .99908 

ft 

.99913 


m2 

U 

.99918 / 







B3 

data bTFBLZ / 5.46E-12 

/ 


r— t - 

“ 

*“ ' 


84 

PI=.3l4I5926SE+ni 







Pa 

TrtOPI B 2. API 









HA.LfPl = PI/2... 







B / 

2223 HEAU (5,h99> IX, JX, IRON, 

JRGN 

.nstart.iso.iplohe.rex 

. 



«0 

IF, 

( I PLOtiE.EO.4 1.. 



return 




tiV 

IF 

(ix.Eu.G .AND. JX.EQ. 

01 


STOP 




90 

IF 

( IPLUME.E0.2! 



GO TO 

995 




I NHGH 3 lf<bW®JKGN 

f2 JRGK l »JKCjN + 1_ 

93 I RGN 1 B 1 kC,N+ 1 


PO _17 J= 1 , JR.GN 

READ 15|BB5) GAMMA 

9, * *.i.l y I.^_5,A M MA 

9 / GAMMA « gamma * PI/180> 

98 " TAMtGAMHA) 

99 TAMG2ljj ■ TANG ('„ I’oof 

•03.. A t J ( = CpS] GAMJM A)^ 

• 31 m = 1, / TANG<JRGN~) 

.• 00 BB 8 JbI.J RgM 

•>■13 TNG2(J+J} * fANG2(J) 


• OH . . ...JTNG ( J+ i } nJANG ( J ) 

• ‘•8 aea ttng2( j*m«ttng{.i*! >*e2* 

1 0 6 TTNG ( ) I «=0 .0 

• ••7 TNG2(il b’o.o ■■■ 

t OH TTNGZ C 1 ).?0.0 

109 c SUDSCH tf'T 'k ”iDEN>i>IEs"THE 'property IN THE PR OP ( K , I , J fT^'W 

i!0 C ,Ki.| PARTICLE NUMBER OENSIjY (P/CHeo3j 

'!* c K»z particle temperature iOegrees kelviN) 
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12 
T 5 “ 
JH 
15 ' 
1 & 
17 

1 8 
IV 
70 

2 1 
2 2 
Zi 
21 

25 

26 
27 
2« 
29 
iO 
3 I 
1 2 
3 i 
1 '^ 

16 

37 

3« 

39 

HO 

hT 

H2 

H3 

H4 

M 6 
H /' 
H8 
H i 
',0 
!s 1 ’ 
: S2 
bi" 

i 5H 
ibS 
i S6 
l 6 /' 

I 9S 

ibV" 
160 
161 
162 
I 6 3 
; oH 

I6b' 
I o 6 

' 6 7 


C K>3 PARTIO.E RADIOS (MICRONS) 

T~K "M pROjert eFT r' ea “of~'pXrTJ Cues fMicR'oHS^^ »Tj 

C K-5 GAS TEHPERATURe_(DE6RE£S_KEUVJ[N> 

c K-6 statTc'phlssure’ ("psiAi’ 

C K»7 HOLE fraction FOR CO ( « ) 

C Ko8 hole fraction for C02 (-1 

C K»9 HOLE fraction FOR H20 (->_ 

"C‘ k’s'l O'ho'lE ' FRACT I ON FOR HCL I-) 

DO UBZ 1 = 1,IKGN1 _ 

REAO(biUab) H21I) 

HZ ( 1 1_ « H 2 ( I ) + H » ; 

DO a'Bz' 0= r. JKGN i *• - - 

READ (S,8QS) I P ROP ( K i 1 i, J 1 j K» 1 , 6 1 

READ (b,H8b) tPRQP(K,I 

PROP I 1 , I , J I =PK0P II , I , j> /Z83 17. *1 .6 e«? 

PR0P(2. 1 , J1«(PK0P( Z, I ,J1 /I 

'PR OP U . I . J 1_*PROP O , 1 » J I •SO.RS 

PRO'P Tb r, jV=>'propTV ri • j I 7 I . 8 

i.*. 4 ***’!* 

L = 0 

DO 684 I a I, IRON __ 

HZLUrtt I l”l ’= Hz I’l r«»3’ 

mH2C 8( I )aHZ ( I + I ).«>3 ~h2 C UBE (I ) 

*00 8 84 Jorij'RfaN’ 

LaL+l J 

■V(L) i - ■ • ' - - 

lPI/3.0» (TTNGZI J + n-TTNG2( Jl l»H_lHJCB(n 

d 6’8'84 A=r,IO 

S^J « ( PROP ( K , I * I.J I-PROP| K,!,Jl)/(HZ(l->-t)-HZ<I )J 

bPJ I » t PKOPjkVl+iiJ + iT-PROP (K, IiJ4tl)/<HZ(I-6i >-HZ II)} 

DPJ= ( PROP IK , I , J+ I ) -PROP (K , I .jJ }_) 

‘OSPJ a/pJl-SPj " 

oTfij = ■ •J ’ - - 

c 1 =op j/D r ij'j 

rZoOSPJ/OTNJ 

AoP'ROpTn rr. j I'-^P'jaHZ I 1 ) -C 1 • TTN G ( J ) ♦C'Za'fTz <~I )«'TTNG (J ) 

H6SPJ-C2*TTNG|J) 

"C»C1-C2.H2( r> 

^C 2 __ _ _ „ ^ „ 

. " Al»A»rffN6Zij.iyi’TTNGz( jT)7ZVc»'('TTNGrj'+l »«*2”TTN6| J)»a3)/3 

AZ°B«(TTN G2( Jat|.TTN62tJl)/2*D9 ( TTNb £J *1 ) c O-T TNGI Jl««3>/3 

PaTWOPlslAl/aalHZlI + l )«*3-H2 ( I )”• * 3 ) * A2/ 4« < Hi ( I ♦ I )6»4-HZ I I ) 6*4 ) ) 

i8jt_PR0P(t^ > I P/V(L) _ 

‘ GO TO ■ 996 ‘ ----- 

9 95_REAU ( S I 8BS ) PC . PAMB . TC i XK 

Ca\L OuicKP (PC.PAMB'tTCVxk') 

H 1« I . /T AHG I JRgNJ 

N H G N a J K G rr* 1 R 6 N 
996 CONTINUE 
''xNA'VG"“OiC 
RAO 1 A r a 0< 0 
VT=C.3 
LoC 

XHaOlc 

XyoH.oSff8L2*REX»«3 
'do"B 86 la|,lk‘&N' 
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»6^ 00 8 66 J=I.JRr.N _ 

t69’’ ' ‘ TG<>PHUP(5ii’.JM»',2s’ 

170 n:«P«OP<2|IjjJ)«At7B 

I7J L»U*I 

, IJ 2 VT«VT»V1L I 

173 CABSUI *l'^3-.CD3225o(TG>l<iOa«) )/30eH8 

I7*t If 1 T(1,GT ^JSOO. ICABSl n ^L«0^730»R8 

I7b CAbS(2r "(H.B-.odHa^CTG-rBOO,) j/jOtRS 

\T'' IF (TG.Gr. 1800. 1CABSI2) ° ( 2 . M ~ . QC 2 » 1 TG- 1 BOfl . ) ) /30.<46 

17? !F iTG.Gr,'‘27Cd. 1CABS(2) ».'6/30.‘ie ' 

1 78 3J » 1 .8-..cr 1 TG- m oo. I ) /3 0.8S 

|7V IF ( t'g'.G T .'2500.IC AB5 ( 3 1 ■.2/30.H8’ 

I'iO .C^US M mCAHS ( J I. . _ . 

181 XICA«3.0 

182 K“1|H , _ . 

IH3 CABS ( K I -CABS (K I •PROP U+fi', I'i v») *PRaP ( 6, I I jT/i8«7 

iHH 3H XKA- XAA *CABS ( K I 

IH5 TAUG(1,JJ -"'RTxixKA ' 

\ H 6 planaa-3, 5 __ __ 

1h 7 PLANXt-0 io ’ ~ 

!«« _ «*£..0 . , 

I .i"7 00 iB8 da I 1 HO 

1 “J.P .• L» 

1‘7 1 XI2 I alV'» 1 i'8*"(vT+a.S I 

1?,?. • ij 

I 3 ' 00 HOH H-r,2 

IHH I * I'll »i-C. ipnOiL„GQ..T^„‘»C!q 

1-75 .IF t X I H) . Lt . 20000, r GO TO HOl 

1 H 4 IF LXJ.M J, . L£._H P P o n.l GO TO H 02 

IH7 1 F t X ( h7 .lE,! onoon. 1 Go To Vo3 

,1V 8 IS O 1 I a 1 

ivH xc'a'x (H ) /I cdo» 

7u3 GQTOHOH 

201 HOI fl-X IHl /1C0.-8 

2Ci2 XCa(xiHl-1000,-I 1 l-2)ei00. I/IOO. 

203 GO to’ HCh’ ' ' “ 

?11H « I 72a0., + 92 

20& XC“ t X I M 1 -2ob6c»-( il-1 92 I *200« J/ido* 

206 ,<iy_.T_0 HOM __ 

207 ^03 I I »X t H )./ 2aca. + 272 

? p 8 XCa I X 1 H ) j:c,H 0 0_P 0 i_-J _U -292 )«2GO 0,>/2OO0. 

20H HCH YYiHl- ’y I ri’i + l T( 1 l*'l 1-Y ( U )»*XC 

7 1 0 1_F _tN.EQ«H0lYY(2)olo0. _ 

211 BFPa Y r ( 2 1 -YY < 1 i 

712 IFlTP.&I.22qn,_l InQX»CmPLX( UB,»oon 

213 rFiTP.‘GL.23i&.") indx-cmplx ( i.ai .o’os'i 

2 1 H I FITP.l t .2200. 1J_NDX “ C m PLX ( 1 .B t » 1?00 l_> 

2l3 CALL SHbLKEIa" , P K OP I 3 . 1 , J » . I n6 X ’ ,’oE XT , 0 ABS » 

216 _PLANKA«PLANKA*8FPoiJA8S 

217 ' ss'a PLANKE-PLANKE*UFP*yEXT ' 

■>10 OABSaPLAhKA ___ _ _ 

219 ■■ ' ijEX r-PLANKE - - . ^ - - 

720 f'.Ef.'iAIlS/yE X T _ _ _ 

72 1 T a"Jp”i I J 1 -PROP ( 1 , r, J ) oilEXTsP iVREX*p’R 0P(3 , i I J'l o«2e I .£*-8 * 

722 IFlPHOPl't.l.Jl.CiT.O.ni 

223 A TAUP(i.JlaPRnP<M.l.Jl«PI.KFX.QEXT/30.Ha 


BEPRODUCIBILiTy OF THE 
ORlGCSfAL PAGE IS POOR 
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TAU( I .JIaTAUGI I , J>*TAUPU ,J) 

726 ” CHIBTA tCl = (TAUGI 1 Tj”) ♦TAUp'i I • J 1 » AE ) /TAU ( I , J> 

J2b *.N_AyGHV(LJ»PROP( ! , J .JJOHEX^^a^XNAVG 


227 

?28 

XNriUlL)»xVeV(L)e|/rE«TAUP(I , J ) /R£ X *p RQP ( 2 , I , J » + XK A*PR OP i S 
PR0P(2, 1 ,J»«TP 

.1 ,J)) 


22 9 

PROPlb, 1 , Jl«iT6 




730 

«adiat»radiat*xnhu{li 




23 1 

8 86 XH«XM + P8 0P 1 1 , 1 , J ) ,v ( L 1 »PROP ( 3, I , J) «>3 




232 

VTT » VT • (REX/ ( 1 2.»2*S<n 1 ••S 




233 

XNAV‘i = XHA VG/VTT 




7 3M 

XXNAVG « 'XNAV62n 2.»2.5M)«63 




236 

L“u 




236 

00 9va 1 r 1 , 1 RC,N 




232 

00 990 J»l.,JRGN 

■ • - • 



7 30 

l»l + i 




73 V 

xniilm.) =XNHU 1 L ) /RAOJ AT 




2H0 

I REMI TIL) “ 0 




20 1 

NEMITt L) » a 




2M2 

ISCATI 1.JI.3 




20 3 

990 CONTIUUt 





RAOIAThRaUIAToFACTR 




?‘Tj' 

.VRI TE ( 6 , 7721 XHAVGiXXNAVG.VT ,REX . RAOIAT 




746 

0 0 10 6 6 = 1 1 1 0 




247 

AfKl TE 16, 1071 K 




74 8 

..'....Pi?.. • 56 I K 1,IRGN 


• 


Z‘i V 

106 vVR‘iTEI6,lC8) 1 , { PR OP ( K , I , J 1 . J » 1 , JRG N ) 




/* b U 

»Q7 FORMAT (// 20h OUTPUT FOR PROPERTY , l3 /) 




26 1 

JOB FORMAT ( I 3 , 2 X . J 1 E 1 1 . 5 ) ‘ 




262 

IF ( ISO.Er.3) return 




263 

HEAO (6,885) SA,S8,SC,SD,SE 




2' 4 

read (5,885) SF ,S6 iSH,SI ,SJ 




263 

OA «■ SA 

, 



266 

(JB n S8 




26/ 

OC » SC 




768 

00 a SO 

, 

, 


26 / 

ue S 5E ' - 

— 



260 

SA»SA/ 1 81, 0«p 1 




26 1 

5BaSB/lo3.0«Pi 




262 

SC«>SC/ 1 80 ,0»P1 




263 

SD»SD/lyo,0®Pj 




260 

SE«SL/ 1 aa.o*Pi 




766 

A 1 “,5<>SA»sJ 




766 

A2B.5* ( S8-SA ) «(5J«SH) 




26/ 

A3« ( Sb-SA ) *5H 




7o 8 

A9".5*(3C-S0)* (SH-SG ) 




269 

A5« ( SC-Sb ) »SG 




77Q 

A6“.5»(bO-SC)«(SG-SF) 




2 / 1 

A7» ( SO-SC ) »SF 




7 72 

A8».S« (Sl-SO) •(SI-SF ) 




2/3 

A V» 1 5L->lJ ) *5F 




7 7 H 

A 1 3 = . 5* 1 P I -SE 1 »S I 




2 7 b' 

ci»Al+A2+A3 




776 

C 2>'C 1 +A4 + AS 




27 7 

C3»C2+A*+ A7 

- 



7 76 

C4-C 3-t Ao-^A9 




2/9 

«C 4 ♦ A 1 r 
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2H0 

S |b2 •0«AK«SA/SJ 


2tn 

?.6i 

S2=|SB-SAI/(SJ-SH) 

S3aS2oS2«>SJ»SJ 


ZUi 

?;1H 

S4»(5C-SB)/<SH-SG) 

S5-S4»S4»SH»';h 



S6»(SD-bC l/ISG-SF ) 
S7«S6»Si»56»S& 


?87 

rdfl 

S8« ( bt-bO ) / ( S 1 ~SF 1 
5V = b8«Stj»SF*SF 


?H9 

?¥D 

ClKnCl/AK 

C2KaC2/AK 


29 1 

??z 

C3K»t3/A^ 

CHKaCH/AK 


79? 
?'** . 

A IKbA 1 /AK 
RETURN 


29B 

END 



|<I,S INTKCP' 


OF THE 
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LtE. 



I NTRC P 

s u a R d U tTne “fin R cp (X.a.kplu N'ETTolTfr* p^' apT 


5 

6 

"> 

R 

» 

I ^ 

Ti 
1 2 
1 3 
I 4 
is" 
i 6 

■■ iT 

I 8 
iv' 
20 
2l' 
22 
2i 
24 
?S ' 
26 
27 

'79 

30 

31 

32 
33' 


C 

■“c 


X IS THt UdCAlfON'i”* i’S T'HE~VELOCITy d"c 
KPLUHE IS THE origi nating PLUHE 

KOUT EQ 0, IF not INTERCEPT ANT PLUME. 

A4. JF..RI ThIN or INTERCEPT ThaT PLUME AT Xp. 

iNCLUDEOlM.LtST 

dimension' X (3) ;a( 31 ,XP(3| .API3J .XPLI3I tAPLt3l 

KOUT«G 
KTAHGT“i 


_KTAR6T-2 


I 00 


IF IKPLUME.EO. n _ _ 

CALL TKanSF (X,APL',V;'AP'-t6rKTARGT» 

"?KGN* j i N-/TASS J_PL^. local COORDINATES NOW. 

H 1 » I *a/TAN(iljKGN) 

S«tA'NG ('jRfjN') 

HPL»H2 1 1 KGN II 

IF Vl P L 0 h E . E U 'm g ~ 

J1PL = H/UR(,ni ),HI ° 

continue ■■ ~ — — 


! > ■*•« 1 ) »TAN6 ( JRgN) 


120 


I2S 


RPL»SCiKf I XPL ( 'z'l * • 2 + X P L 1 3 I ••2) 
JF (RPL •tiT.RLOC I 
KO'UT'BXTAkGT ' ■ 

DO 125 1=1,3 

'xFn')=xpLt i ) 

AP t I I =APL I I ) 

3G0 — 

INTERCEPTION 


GO TO 200 


i>0"”fd 
CHUIK 

ioC^CONTlNUt 

**•.* •-APL ( 2 I *.J 


( 1 • •I'S 9 s ) 




(-■XPH2)*XPLI21+xPLI31«XPl(3) 

-S*S*(XPL( il+Hl )*(XPL(1)*H> 1 


16 



CRlT»U»ti-AA*C 
IF (CRIT.LT.O.I 

GO TO 300 


38 


D«(-.B-bNKT(CRfTI l/AA 
IF lO.Lf .0. » 

GO TO 300 


40 


T 2»XPL ( 1 ) +D* APL( 1 1 

IF t T2 ,L T,0. . OR. T2 .GT.HPL 1 

GO TO 300 


HZ 

HI 


DO 2S0 1=1,3 

XP 1 _I ) f; X p L ( M ♦ 0 « A P L 1 I 1 



44 


API I 1 ='aPLI I ) 

PHI I=ATAN2 I xp ( 31 .XP t 2 I ) 



46 

47 


IF 

KOUTaKTAKGT 

PHI'i-PHI l*Tt»o'PI 


48 

449 


CUN r i NUt 

return 




7S~rffPkf — — - - 
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i ' SUBROUTINE IOPKf’(H»lRHIT,X»R|E*f»P*IO» 

. 2 dimension S.(_500.) ^ 

j c ••• 16- 1, •vHiTE Tape, to>2, read Tape. 

R HaR* I 

' ' 5> <,0 TO (103.2001 . 10 . 

J> 1 00 IF ( M . £N. I l___: HWO 

7 Ia5-HH 

8 S(I + 1)»X ^ 

.. .. . _. 

1 0 LLLt?i “E — 

"'ll ' 5(l*l)«T 

12 S ( U 5I-P ; 

I’l HH-HH + I 

,L;< IF ( Hrt . UJ.tiOtJj G O TO SCO ' - 

WRITE tIOI IRMIT,(S(J» • Jal.SOOJ 

. 1 6 ljr_ i M . £ fJ . IQO > write 

17 WRITE (6,lbOI M.MH, IRmIT, (SIJ l »J»H96,500) 

1 8 IS S _FORli A I. ( 2X .I2HH HH IRhIT ■ ,3H0 .5X.l lHX R E T .P. ■ .5F13.6 > 

19 isi FORMAT <//> 

70 .MM-O : 

2l' ' 6o TO 500 • , 

2 2, 200 C ONT INUE 

” ' 23 IF Im.Eu. I ) MH«C 

2 4 GO TO 21 0 

25 • ' READ iloi IRHIT. (5<J)> J»l,S00} 

2 6 _2|5 i?5*.HM 

2 ?' X-SU*l) 

18 R»S1 1* 2) 

Z9 Easiuai 

‘ TaS(I+41 

31 R-sii+5) 

3 2 

3 3 IF ( fi ill t q1 Too I H M ■ 0 

31 SCO RETURN 

■■■ 35 ^ END 


VPRT .s' MA I'n 
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LEC.ALB IN202«TPr S tHA IN 

1 C MAJN PROGRAM FOR DUAL PLUME MOM'TE C A r1(T~sTH H LA TITn 

2 OR 1 fOR CALCUUATING heating RATEt »2 FOR VIE* FACTOR 

3 INCLUOE bEOH.LlST 

;( INCLUOE OIH.LIST 

5 COHnON /^TViOPLH/PP ( 2 f 3> 7 sig I 2) ,PS I ( 2) ' 

. <> ” J.MENSI0N_PI3» ,11(3) ,X(3) ,AI3) ,XP(3) ,AP(3I 

^ READ (5,3001) ICALC 

« IF (ICALC. to. 2) GO TO 25 

« HEAD (5,3002) t t PP ( I , J ) , J» 1 , 3 l", S I G ( I ) , PS HI)', I • 1 , 2 ) 

1 a _D 0 j a_i *1,2 _ 

1 * " R 1 T E (■6,300 3 V "i , ( p p F I j ) , d^'iTSlTs 'fisTT I PS rn'j 

12 P51 ( I )“P51 ( I I/57.2957B 

13 2C S|G( I )«bIG( n/57.29S7« 

II TAKfaET 

IF (ICALC.LQ.?) go To ~2000 

!<' C **« C ALCULATION OF HEATING RATES 

IF F/Tc''ff(i 2 .ii ■■ " ' ■ — 

1 8 HO_CA(,L INPUT (NHGN.HI.FaCTR) 

)9 Hau 

■20 DO 50 Ka( ,3 

21 ~ ' ”U0 bO ja(,NTKAX' ^ " 

2 2 ... PiL_5.?._ L; .1 ± N Sl o t A 

23 50 H I T ( I , J, K ) >6, n ~~ 

24 ihstart) 

21’ IF (IPLUME.EQ.3) RE*'lN0 10 

2* I_L. i Il^l-OHE^Eo.*) } • _ GO TO 500 

22 DO 400 lAXal.ii ' ' ^ • 

2 8 a_I>_..3 9Q 0XA»1,JX 

29 (QO C LL RANDOM ( ul ~ 

30 ^KPLUHEal 

31 IF(U,oI. 6,5) I Kl^uTlTi 2"^ 

32 call random (u) 

33 ■ 'xnU»6." “ , 

call EMITT (NRGN.XNU,U,H,RlS,Rn 

35 GO TO ice ‘ — - 

3* 20 0 1 F (lbO,LU,0) GO TO 250 

37 CA'LL' bCATTR" ^ 

38 GO TO 3 0 0 

39 250 CALL RANDOM '(IJ) ~ 

40 THETAaTiiOPI »U 

""li CALL RANDO'h' ( U) ~ 

42 C0SETA*l.-2,»u_ 

'♦3 ■ sIne'T A»byKfTi7-C05E"fA#'C"OSETAl ” 

. .48 TANLTA»51NETA/C0SETA 

83 3o’0 CALL XCUClRO ( R ri", R I , J , H , HI i'jTI ~ = 

88 CALL ATTEN( IXPR.Rl ,RIS,H,J2,ZESCAP) 

8^ IF (IXPK.EoTTi GO TO 200 

4P P U ) fH-M J 

89 P ( 2 ) ■« I *c6b ( PH i n ' — — 

50 . P ( 3 1 ■« ( *S 1 N ( PH I 1 ) 

5 1 W(I)icClbLTA ~ ■ 

52 W(2l -bI(jtTA»C0SlTHLTA) 

53 M 3 ) ”5 1 NET A as') N ( TH£TaT~ ~ ~ 1 

5 1. CAL L TKAN5F ( P , X , A ,KPLUME,D) 

55 CAlL INTHCP ( X , a IkPLUhE ."ic'oUT ,'xP, AP ) 
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S6 

57* 

be 

bV 

60 


IF 


UOUT ,EQ.O t 
"‘''kout' 


GO TO 380 


KPLUHEi 

R|S»XP(2»*XP (.2,1 ♦JJ’J 3 ) _• X PJ 3J_ 
RlaSQKT(KlS) 

Ho XP( I I ♦HI 


61 
62. 
6 J 
6** 
6 b 
66 


67 
6fl 
6V 
73... 
7 1 

LI 

73 

7H 

7b 

76 

ft 

7?.. 

>V 

'>3 

I 

03 

0 V_ 
Ub 
116 

B 7 

U8_ 

flV 

"v I 

92 
V3 
99 
'<S 
9 6_ 
~9 / 
96 
99 
ICO 
101 ■ 
20 2 _ 

1 0 3 
1 0 9 
I OS 

1 U6 
107 
I 0 6. 
109 
1 10 
I I 1 


_iSC. 

3&b 

~380 


]HGN1s1kGN+1 

J£ ( H • 0 T . H y 1 R GN I 1 ) 

DO 350 iixnl.JR'sNl 

.IF (M«OT .hzin.x.n 

"i NUEx« 1 i x-i 

JHO t. X « J k G N 

GO TO 3bb”' 

_CU1JTIHUL 

'CONT I NUL 

.SP..T.D . 2bC 

CONT I NUL 

IF 1 IPLUML«EQ.31 


_60LJLO_LQiL 


GO TO 350 


GO TO 3B5 


365 

390 


iOO 

500 


GO TO HOO 


C * 

?P30 

c ••• 


'MMBLLaAuS (SI GU n*ABs( SIG ( 21 )6ABSIPS! ( 1 ) )*AB5(PS1 ( 21 ) 

IF (G1M6LE« GT.I. E-6 »QR» iXPB.Eq. I > G0_.T0.J.8S_. 

H««* I 

GO TO 390 

CALL ESC.AP I X , A I I 

C 0 N T 1 H y L 

IF ( JPLUnE .EQ.3 I 

.CALL .OUTPUT _(Hl ,_N.RGN.i .02 

CONTI NUL 

GO TO 9C 

CALL FKTaPE (HltNRGN.zi 
GO TO 3cca 

CALCULATION OF VIEW FACTOR 
CONTINUE 


,REAJ» . (.513331) N R.A.T t NST A RT„ 
IF (NHAY.LE.QI 

CALL vF E mit (o.x.a .ea reai 


GO TO 3000 


Hb3 

.HHl.SS-0 

NHl TPaJ 

HH ljr_GaO 

'call RNUH (NSTARTl 
00 2050 K»=l « 3 


DO 2053 JaliNTHAX 
_00_2C50 l-liNSIDEA. 
2050 HrT( i7j»K »»C.o’ 


2100 HalUl 

IF (H.GT.NRAYI 


GO TO 2500 


_C A L L .. V F L .MJ T . ( I. j.X ^iLi £ ,A_R_E .M 

2 1,9.0,.CALL..S0H T IJ G .. ( X i A.! 

IF (lU.NL.O) 


GO TO 2200 


HHISS»HMISS+1 
GO TO 2iro 


pVPEODUCIBILTrY 0^ ™ 

^ginal page is poor 
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2200 CONTINUL 

IDXl-IOAKEA 

1DA2-ID 

ro“X3-IorS(C*l 

HIT(1DX1,IDX2,1DX3) » H 1 T (I PX t > 1 DX2 i 1 PX3 > » I .0 
MHI TCi;»HrilT6*l 
GO TO 2J00 


11^ C 

123 2500 CONTINUE _ _ 

12J ■ ” ■ "call VFUUTP' {NRAY7NSTART,'MHi‘TPVMMISS,MH'lTGVEAREA> 

122 GO TO 2CC0 

123 " 3C‘c6 stop 

124 30CI FORMAT 1318) _ 

126 3002' FORMAT llCFeVnl' 

126 3003 FORMAT 1/ 10X.6HPLUHE , I 2 , I OX , 1 RHLOC ATI ON_PP ■ ,3F?»R < 12X . 

127 ' ' ~ '"'i 7HSIGHA* »^F7.2 .6X .s’hPsT ■ .F7V2V8H DEGREES /I 

Ue 3 0g4 FORMAT ( / 1 OX . 2 CHPLUHE VERTEX ANGL E «■ ,F7« 2t 8H DEGREES | 8 Xi 

i29 ’ I niHPLOHE LENgVh o’’|F7".2 // J 

l33_ _ END 


VPRT.S MAIN5 
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JPF*fMAlNS 

'iNClOdE GtOM.WsV ■ 

— . INCLUDE U|H,tlST 


b 

6 

7 

FACTRbJ.o 

i.^2_5_C ALL l_lLPU,t_ (NR6N ,H 1 .FaCTR) 



B _ 
7 ' 

50 J= 1 ,NTHAX 



1 c 

i 1 

vu bO l•ltNSIOEA 
. 00 hO K=.Ij3 



i_2 

t i”* 

sc hit{|,j,k)bo,(j 

P.ACI^RNUH (NSTART ) 



. . ji. 

1 b 

IF 1 IPLUHE.E0.4I 
if— LIPLUHE .EQ»i) 


GO TO 3000 
RE W 1 ND 1 n 

16 

17 

DO 81 1=1,12 

JPLMElIjBa 

KPLMEIiJbO 




I ‘L 
1 i 

z i 

?■’ 

^!> 

2* . 
27 

.. 2 8 _ 

Z’l ~ 
33 

3 1 ' ’ 

32 

33 

3'i 

ir 

3* 

37 " 

38 _ 

3 9 

.40 

4 J 
4 2 

4 3 ” 

44 

4b 

_Hi 

~4 7 

48 

4 9 ’’ 

50 

ii’ 

_5 2 

53 

54 

55 


JlTKU( i |»g 

12 ( I ) «C 

-1!— IPkHEi I l«0 

I OUT ■ 3 

J^J.10 

KOUT«0 
. ..Loyr-j 
N H t T » 3 

. .PeH^TrtOFJ/U.Jl 
DET«PI/12,0 
PO 2222 I XX B 


J-3 1 1 - 


0 1 U 12 JXX B 1 . j;t 

_OeT£RMIOE Rt & IPN_0F__E« I SSJON POINT 
1 CALL RAHUOH(V) “ 

X B _ 0. 

CALL 'emIit In'rgN , X ,U ,H rRlsTRI J ' 
ro TO 4 


SELECT SCATTERING DIRECTION' 

2 If • I SO •C0« 0 1__G0 T0_ 3 

CALL SCAT TR ' 

.P.O TO 4 

ISOTROPIC scat'teri-ng 

_• 3 CALL H A NOON ( U ) 


THETA o TivOPI • u 

Sfi-J. KAIJDOH ( U) 

CO SET A » I . - 2,'»lT 

SINET.A b S«RT(J^.^0.sETA«.2) 

TANLTA b 51NETA / COSETA 

5 ! S J R J_t J (H iHl ,J2) 


J r n X P R • £ Q g 3 I (, g ^ Q 2 

CALL ESCAPE|H',Ki .TxPR;Ri;'RVs',2ESCAP7 

! J .1 o ,Nt .oj. 

02PH»3,0 " ' 

___E_L.nO. D 

N a N ^ 1 " 

as CONTI NUL 

ETAbACOSiCOSETAI 


..NHU TbNH JT+ I 
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ZS »ZESCAH-H I _ 

I r Tz s rc T .'o .0 r I i7 n '» i z (V) *T ’ 
If US.(ii.D.0.4NO.ZS.lTi2.0> 
ifizS.GL.Z.O.AND.ZS.LT.'t.Ol 
IF ( ZS • t . P . A ND,Z S • L T.6. 01 
IF I ZS.tjt.. 6,0. AND.zbiLT»8^0) 
_[F t Zb . Gt ,8 .0, AND . ZS.LT. 1 0. ) 
lF{Zb,GL.ia..AND,ZS,LT,l2.> 
_IFIZS.Gt,12..AND.ZS.LT»tH.I 
'lF(25,GL.|H.,AND.Z5*LTtI6») 

I F l_Z5.Gt.I6,.AND.Zb.LT,t8,^_ 
IFlZb.GL. IB. .aNU.ZS.lt, 20.) 
IFIZb.GL.ZO.O) 
t'i-ph 

J2-ET 

"tkuph»theta-ph I 1 

IF ( THUHh.GT.Tfl DPI I 

IF I fhiUPH.uf7nr) 

DO 86 I •= 1 , 1.2 

'if (PHlI.Gf.T'l .AND.' p'hI V .Uf 
-i ^ ^ T A . (J T . T 2 _. AND E J A . LT_. 1 

1 F ' ( THE r A .GT . T I ^ AND.’ THETA'. 
I^F (TKUPH. GT.TI .AND. TRl^H_, 

"tiVti-Tupm" 

_T2«T2 + DLT 

IF (PH I I .GT «TWOP f.bfi."pHT! .LT 

_I F. { £ T A . T . P I ) . 

IF { THE 1 A.GT.TttOPI > 

IF ( TKUPH. GT. TW UPT ) 

IF ( j'ix^Nr. Jx'l 

NTKAJal 

oo' bt 1 = 1 rii" 

nthaj^ntkaJ+iplmeii j + jI’LmeJJ 

'nth A J = m KA j/5 

WHITE ( 6 . a (IPLHE(!l> l»l, I 
I .Tl'TKUI I'l ,lal , 12) ,'(IZ("f 

I HHIT 

FOKS’a f ■{ ////22H N'o“"’dF ' tHl'T 1 

! lX,2lHNq_pF EHiT IN 

J i'x^2VhN 0 OT”EMi'T''iN" 

J 1 X jjj h nq o f emi t_ in 

I lXt2'lHN0~0F 'tHlt" i'n ' 

j J X ,3^9HIOUT_JOUT KOUT 

CONTINUE 



c all' o'u't put" ( hT.'nrgn , o') 
continue 


GO TO 2223 

CALL FRTa_P£ ( H 1 ,NRGN_i^i ) 

stop’ 

END 


I Z I 2 ) ■ I Z < 2 ) ♦ J _ 
I Z ( J ) i I Z'( 3 1*1 
I Z I 8 I B I Z ( R I 6 1 


UI5l>U(5)>t 

IZ<6|bIZ(6) + 1 

1 Z ( 7 ) - I Z ( 7 I ♦ i 
izu) = {zie) 6 ] 
IZ19)=IZ(9)*1 
IJ ( 1 0 ) » I Z ( I 0 I 
iz'u’i )-iz( I ri«i 
I Z( 12)bIZ( I 2)*l 


. (TUDPH) ) 

T2+DET1) 

LT. (Tt+DP"H) I 
LT.(T1*0PHI I 


T RUPH»TRUPH»TW0P1 

TRUPH«TRUPH*TWOPI 

' i pThe (iT^ fplMTiTiTT 

JPLHE (J >=JPL ME(I )♦! 

'kplme ( 1 1 -'kplhe n I ♦ I 

LTRU( I l-LTRU(l >♦! 


IOUT=IOUT»] 
JOUT=JOUT+J 
KOUT-KOUT+r 
L0UT-L0UT6 I 
Sd'TO 1112 


)'»kpl he I n +LTRU n_ i izxi.i 

2 ) . IJP LHEl J) I ja I , I 2) . (K PLHE( I I iI» 1 , 12) 
■) .1 = 1 , 12) , lour. JbClt, KOUT, lout. N.NTRAJ, 


N DEL PHI , IX. 1219 // 

DEL ET^ 

THETA ' ~. lx . 1 219 // ‘ 

TRUJ>HI _,1X,12I9// 

Dtd' Z“" ilX, 12 I 9 "/ 7 // 

LOUT N NTRAJ NHIT , 


7|9 //// ) 


GO TO 2222 


CPKT.S OUTPUT 
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Lit -AlB >N20? «TP K a ■ OUTPUT 


subkoutin e'“6'u fp u T Tii Y , S r'g n • k d o E) 

-INCLUDE, GEOHj^i^jSJ, 


INCLUDE OJ»,L!ST 
OUTPUT 


B 

.. * 
.. 

B 

9 

10 


VI FONHATIZox .2Ha»,F 7,H .3X,2Ha-,F7,3,3X,2Hc»iF7,3,3X,2HD«,F7.3.3X. 

I 2 ME « , F 7 . 3 1 


i I 
12 
J3 
I 1 
IS 
I 6 


9*4 FOKHAT 
9S_F0RHAT. 
333 FOMHAt' 
8H3 FORMAT 


1 

2 _ 

i 


IHXlii, 6X,F9«1,1JM,8X,1PE10. ** i BX ,E i S« <4 , ll3,7X«0PFi0«6 

.! /22X.I } 2HNNJ A_VERAGE . 1 OX , I PE I D .*4 . 5X .E I 5 . A / t 

I IHH ' 

_L^*jX tAHA RE A 1 8 X J_9 H NUMBER .8 X , AH aRE A , 3 X , 2J,iXj, 


» 


13HHEAT TRANSFER, AX) , AX, AHAREAiBX.’sHHIT area /3X, 
AHNUMBCR_, AX , MH OF- HITS , &X , GHNUHBER , 9X . 5HW/ CH2 . 
l2Xi t IKBTU/SEC-F'T2,aX,6HNUMBER ) 


) 7 

1 a _ 

1 9 ■ 
30 
Z) 

2 2_ 
2 3 

2f . 

2S 
2* . 
27 


?!i-iJi!iMAI<2 0X,2HF«,F,7,Aj.3X,2H6«,F7.3,3X,2HH-,F7.3,3X,2HI-,F7.3,3X, 

12HJ=,F7,3/) ■■ '-a-i- 

_^_J^!??._forhajj,_//_adh 1 properties In Pluhe regions // i 

1A02 FORMAT! // ?in JP - ( 'DEGREES KELVIN ! '/ 

TO - ( pE&RFES, KELVIN ) _ / 

I 20H N - t PARTS/CH3 ) / ~ ' " 



I 


) 


79 

J 1 

32 

33 
3A_ 

‘ 3 S ' 

36 

37 
33 

39 

_A0_ 
A I 

A2 _ 
A3' 
A A 
Ab 
A6 
A 7 

40 , 
A9'"' 
SO- . 
b I 

b2 

"b3 

bA 

bS" 


< - 

TAUG - ( - j 

2 b H. J AU - I ) 

■3 2CH Rp - ( MICRONS 

— - |SM ,A/t - I - I 

5 ISH MF ) ' 

7,^3CH HZ - (_EX!T RADII ) 

lAa3 FORMAT (lOH GAMMA », IIF11,2 

J-jO^-FOMHAT (/IA.Ah TP », II E 
format I IA,6H 


/_ 

/ 

y 

J.. 

/ 


) 




8 002 
J “to A 
1012 
18 13 
J A 0 7' 
I A06 


format. !. 1 A_,6H 
FORMAT ! lA,6h 
tO^HA.T..! .IA,6 h 
format ! IA,6H 
P£«HXI_i 1 Ai 6 h 

1A09 format"! 'Ta .'a'h 
. 1 A 1 C F0RHAT_1_ 

1412 FORMAT 1 


TG *, llEll.B 

- l_i IFIl.B 

TAUP», llEll.s" 

JAUGb.i.J.IEI I •B..„ 

TAUk, IIEIUS 

RP .U E 1. 1 . S 

47t». llEll.B 
I_A i6HRA0FK» , 1IE11.5_ 

. IRiYh HZ », ME II .s' / , 

|6C0 ,F.ORmATI_ .// 60h. distribution OF .SCATTER | fJO S ANO EMISSIONS THROUGHOU 
ITPLUHE //) '■■■ 

• *" * format 16X ,eH GAMMA ", nFlD . 2 1 

N E M I T 


1603 

16 TA 


FORMAT 
.FjORMAT 
1 6 CB "format 
1 606 JOHHAT 
"forma T 
format 


1607 
I 900 


(/lA.lfiH 
.L-L*!.* • OH 
t IHilOH 

! lA.lOH 

! iSriOH’ 


..I scat 

Vscohe 

IHISS 
SEEMI TS 


II I 10 

I 1 1 10 

I I I 10 
t i I to 

n 1 10 


!38HITo TaL nu mber of EMISSION/ABSQRPTIOH s ,IB,H0,7X. 

t-UUC'V — r--* « -.V " ill -I" VJl" .. * . "".'.I ? '■I' ' 


, , I 90 A 
' 1906 
1 9C? 

31 

32 


33 


I SHREX »,F7.'l i/XTsHRADfAf ' =, IPeT2.A|6H WATTS 

FORMAT !_// 2BH .ANIOTROPIC SCATTERING //) 

FORMAT !// 25h ISOTROPIC SCATTERING //I 

_FOhMAT.U!H TAH6E,I NO.,13! 

FORMA T ! 1 X , 27HON TARGET MAIN SIDE SURFACE) 

t > X 43HH0N_C0 NSTrA 1 NT DISK PASSING THRO Pi) 

F OKHAT I I X , 3RH0N CONSTRAINT DISK 'paSSinG THRU >"2)' 

.IF .! IPLUME.ElJ.R) GO TO 

IF INPPT.gE.I) go TO 


/) 


100 
I on 
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56 


NPPT-NPPT+'l 





S7 

5S 


HR ITE 16 > 1 400> 
iVRITE 16.14021 




. 

5V 

60 


WRITE! 6.1403 1 ( GARHAXCJ) . J«1,JRGN) 
K « 0 





6 1 


DO 1404 I- I.IKGN 





6? 


WKITE(6.|405} I,|PR0P<2»I,JltJ*|,JRGN) 





6 J 


WRITE I 6, 3002) 1 , (PROPiBi 1 .J) .J-l.JRGN) 





6M 


WRlTE(6tl406) I.IPROP(i,I,J).J-|.JRGN) 





65 


WR1TE(6> 1312) 1, 1 TAJP! 1 ,J) iJ-1 iJRGN) 





6 6 


WK I TE ( 6 > 1 3 1 3 ) I. (TAUg! 1 tJI t J»1 I JRGN) 





67 


WRITE (6.1407) I, (TAun.J). J»1,JRGN) 





6H 


WR1TE(6, 1408)1, !PR0P(3.1.J1.J»1,JR6N) 





69 


WRITE! 6,1409) I , ( CH I BTA (K«J 1 . J a t.JRGK 

) 




70 


WR I Tb ( 6 t 1 4 1 3 ) 1. (XNHUl K'^J). Jal.JRGN) 





7 1 


H2(I+1) • HZ(I*I) - HI 




1 

72 


WRITE (6 , 1412) I . HZ! I+l ) 





73 


HZn + n = HZ!I»1I + Hi 





74 

1 404 

K«K+ JKGN 





7b 

C 

OUTPUT bTART HERE 





76 

ISO 

COhTlUUE 





77 


ir( ibO . EQ . 0) GO TO 1903 





78 


WRIT£(6, 1904) 





79 


WRITbl6,9i) OA.On .UC.OD.QE 





• llD 


WR!Tt(6., 91 1 )SF.S6,SH,SI .SJ 





a J 


GO TO 190b 





32 

1903 

WRITEI6 , 1906) 





33 


IF ! 1 PLUME. E 0.4) 

GO 

TO 

200 


84 

I90b 

ARITE!6, 1600) 





3b 


WRITE! 6,1601 ) ( GAMhAX(J) , J-|.JRgM) 





n ft 


La 1 





37 


00 1602 I “ I.IRGN 





38 


LX«L+ JRGN- I 





BV 


WK1TEI6 . 1603) 1 . 1 NEMIT(JX), OX>l.tLX> 





90 


WRITE!6,1607) l.lIREHtTIJX) , JX«L ,LX ) 





9J 


L»LX* 1 





92 

1602 

WRITE 16,1604) I, (ISCATII.J), Jwl.JRQN) 





93 

200 

CONTINUE 





99 

C FOR 

LOCAL THERMODYNAMIC EQUILIBRIUM 





9b 


IHMIT » 0 





96 


DO 754 J B 1 , nRGN 





97 

754 

IRMITbIKHIT+IreMITIJ) 





98 


XA o float (M*l RHI T ) 





99 

C 






1 00 


DO 694 Ral.NTARGT 





101 


IF (kode.gt.o .and. K.NE.KODE) 

GO 

TO 

894 


102 


NCLOCiCaUATA ! K , n 





103 


DO 893 L»t ,3 





134 


IF ! IBOUY (K ) .6T.3.AN0.U.NE. 1 I GO TO 893 





i ab 


IF ! lb0UY(K).6T.?.AN0.L.EQ*2) GO TO 893 





1 06 


WRITE (6.1900) M. IRHIT.REX .RADIAT 





1G7 


WR1TEI6, 1909) K 





1 03 


GO TO ! 1 1 , 12 , 1 3 ) ,L 





1 09 

1 1 

WR 1 TE ( 6 , 3 1 ) 





1 10 


GO TO lb 





1 1 1 

1 2 

WRI TE ( 6 , 32 1 
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I I z 
1 1 ) 
1 1 H 
1 1 


J 3 
lb 


GO TO |& 

WR I TE ( 6 I 33 I 
CONTINUE 
print’ 8B3 


1 1 / 
lit. 

1 r/ 
i-ro 
t z 1 
1 -'Z 

’21 

RGKNT=«3.ti 

!l 1 NGA V»C. 


00 1688 J^ltNA 
GO TO (2| ,22,22) .L 


MTAREA^VAREAIK ,J) 
GO TO 25 


1 Z3 
! 

22 

NCI1ECS= ( J-1 J/NCLOCK+1 
HTAHLA»-CHING(K .NCHECK.L-l ( 


1 25 

1 z<. 

1 27 
1 2U 

25 

CONTINUE 

IF IHTARfc A.LT. 1 ,nE-e) GO TO 1668 
UN»RA01 AT»HIT(J,K,LI/xA/HTAR£A/REX/REX 


i 29 
1 50 


QN8TU-UN/ 1 . 1 3B3 

iVftlTE (6,99) j,HIT(JiK,L) ,Jt9NiQN8TUiJiHTAREA 


1 31 
132 


1 5KNT=KGKNT» 1 .0 
RiNGAV>=RlNGAV40N 


1 J3 
1 3H 


IF (RgKNT.ET.UATA (X , n ) GO TO 1688 

R I NGA V»R.| NGAV / ( RGKNT-0.5) 


1 35 
13b 


RAVBT UuRlNGAV/ 1 . 1 353 
WRITE (6,95) H 1 NGAV .KAVBTU 


1 37 
1 38 

Tb 8B 

693 

RGKNT bO > b 
R I NGAV 03 , 


139 

193 

CONTINUE 

continue 


1 H 1 

899 

continue 


1 92 


return 


193 


ENO 



»PRf,S PINGEA 
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I.E.L.tLBtN202«TPF»»PIN6EA 

.. 


subroutine PINQEA 1CtPiA,R00TSi IPASSJ 

DIMENSION C(10liP(3>«A(3) ,ROOTSm,2> 

r2ii2 2r»S0RT'(rX2-x'n**2*( Y2-Tno»2+(22-ZI I»*2> 


RANGEIXl .Yl iZl 
I PASS- I 


X2, 


S 
. b 
'/ 
8 
» 
ID 


1 I 
12 
13 
( << 
I&" 

1 A_ 

"r? 

IH 
IV ' 
20 
21 ' 
22 

2 3" 
21 
2 s' 

Zb 

27 ' 

28 


EPS-l .Ct-IO 

IF (Aasum >; lt.eps) go to i 
rfl»P{ 2 »-Pn 7 «A 12 JMI 1 ) 

W 2 «P ( 3 )-P M J »A ( 3 ) /A I I 1 " 

A 2 I-AI 2 ) /AI n 

A 3 I-AI 31 /A I 1 I 

qT“C’( ll+ci 2 )»A 2 1 •* 2 *C'{ 3 ) •A 3 i «»2 + C(‘tl*A 2 |*CI 5 )«A 3 l*Ctil*A 2 I®A 3 l 
Q 2 * 2 tO«C ( 21 •A 2 J«WI+ 2 »n*C I 3 l*A 3 I *W 2 + C ( l+C (5 ) •W 2 +jC_l 6 ) *t A 3 I » W I 

r'+AZl^rtZI+ClTi+crbt^AZl+CIYI^ASl 

Q 3 -Cl 2 l*rtl** 2 +CI 3 )*W 2«®2 + ClAI«Wl •'A 2 ^CJ _8 1 «Wl'»C 1 9 I *W 2 *C ( 10 ) 

"if ' l ABSlUl 1 .LT .TpS) GO TO 121 

CALL UUAUEQIOI > 07. 03 > X I A , XlMIAtXl B. X IHlB.lF L AG) 

~Tr”u’f L Ab.Eoia ) SO To'Voi 

^0 ro 122 _ — 

■ TO 


121 IF I Ao5(02) .LT.EPS) 

_X1A = -U3/U2 

X"l U i X t A ' 

>22 X2A»A 2 1 • X 1 A*rt 1 


GO 


101 


X2B-A2 I • XI U+A 1 

J( 3 A«A 3 1 «X I A+A 2 

X38-A 3 1 *X IB+A2 

GO TO 102 

IF'“i ABS I A t'iTi .LT.EPS) 
A32”A t 3 1 / A ( 2 1 


GO TO 2 


29 

Jl " 
3 2 
33 ■ 
38 

- 35 " 

36 

37 " 

38 

' 

40 


W3-P 1 3 I -P ( 2 ( *A32 

j^i»£( n 

xi'A«'xi““' 

XIB-XI 


Qi»C( 2 H-C( 3 MA 32 ** 2 +C ( 6 )«a 32 

02 ® 2 .a*C( 3 l*A 32 *A 3 + C( 8 l«Xl-»C I 5 ) • A 32 * X 1 *C I 6 > *W 3 *C ( 8 1 »C ( 9 1 » A 32 


Q3* 

IF 


123 


»c'( n *’x 1 • «2 + C ( 31 *W 3»*2 + C l" 5 ) *X 1 «W 3 *C ( /l »X 1 ■*•€ 1 9 ) *W 3 *C < 10 > 

(ABSlOl l.LT_.EPSI_ GO T 0 ^J 23 

‘call’ ijUAUEoToi .i 77 ',til 3 .'x 2 A.XlM 2 A.X 2 B,XlM 2 B. IFLAG) 

_I F_ ( I F L A G , £_Q J 3 ). G O T P i 0 1 

GO to' 12 H 

IF ( ABS I U 2 1 «LT.EP 5 I GO TO 101 


41 

42 
H 3 '- 
44 

•i'b' 

46 


X 2 A-- 03 /U 2 

X2B°X2A 


124 X3A»A32*X2A+«3 

J(^ 3 B«^ 32 »X 2 B*W 3 
GO TO IQ?” 

X i»p I n 


47 

48 
44 - 
SO 

si' 

_S_2 
' S 3 " 
S4 

‘ss 


X 2 =P( 2 ) 
_XlAoXI 

■ xT 

= X2 


XIB: 

X2A = 
X2b=X2“ 
01 *C (3 1 


02 -C ( S 1 *X 1 +C I A ) *X 2 *C ( 9 ) 

03 »C 1 1 I»X 1«*2 + C( 7 >*_X 2 « * 2 tC 1 4 I • X 1 « X 2 *C( 7 )*XI* C( B|*X 2 *C( 101 

'ir”'(>rt 3 's(orr,'LTirrps'> 'go to"i 2 s 
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CALL gUAPFOt Q I .Q?.Q3 1 X3 A . X I H3* » X3B . X 1 
IF IIFLAG>EQ<3) GO TO JOt 

00_TO_I 

I2S IF lAO^lUZJ •LT.EPS) GO TO IQI 

A3A»-Q3/a2 

X3b<iX3A 

102 CO NTI NUL - 

SA“KANGt(Hf 1 ) ,Pt2) |P(3> »XlA«X2A|X3Al 
b B"HAMGL(p(ILiP J.B j XAi-L 

HOOTS I 1 , 1 1 «X I A 

ROU T^b C 2 t I ) » X2A — 

ROOTS I 3 I 11 ■X3 A 

POUJSJ 4 I 1 )*SA ; -LT-'jn 

ROOTS! iiZI»XIB 

^0 T b 1.2 , 2 ) » X 

ROOTS ( 3 ,2 1»X3B 

ROOT S 1 4 j 2 ) »SB i — 

GO TO 1 10 

10 1 COMTlyUt. 

IPASSaQ 

1 1 0 PEIUK'!- . . 

‘~end’ 


ilFLAG) 


Vpkt'Is”pingeb 
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LE-E-^Lbi N Z02 «TPF»«80ADEa 
J 


SUHROUTINE QUADEQ < A iB »C » XR 1 . X 1 H 1 . XRZ . X [ H2 • t FLAG ) 


3 

H 


D]SCbU«*2>B»0*A*C 
IF (DISC) 50,60.70 




b 

6 

50 

I FLAG-3 

XR la-B/ ( 2.0»A J 




7 

e 


XR2-XKI 

X1H1»5URT(-DISC)/|2.0»A1 




la 


X1H2--XIMI 
60 TO 100 




1 1 
12 

60 

1 FLA6-2 

XR|a-d/(2,a*A) 




■ 3 

I.H 


XR2-XK 1 
XINI-3.3 

. 


1 

lb 
1 6 


X1H2«0,0 
60 TO 130 



1 

17 

Id. 

70 

I F L A6- t 
S-SURT<01SC) 




19 

2U. 


. XH|»(-.B + S»/C2,0»A1 
XR2« ( -H-S ) ^ ( 2.n*A ) 




?l 

22 


XlHl-O.D 
X 1H2.0.0 




2 3 

ICO 

CONTINUL 

IF(UKITE,EQ,o1 GO TO 5 




25 

26 

' 

WRITE (6, 111 A.a.C 
GO TO (1.2,31. IFLAG 




27 

.. ?8 

1 

WR!TE|6,12) Xfil ,XIH< fXR2,XIH2 
GO TO 5 




2? 

T 

2 

WRITE(6,I31 XRI tXIHI ,XK2,X1R2 
60 TO 5 




3 1 
32 

•d 

5 

WR1TE«6,IB1 XRI .XIHI ,XR2,XIH2 

• return 




33 

3H 

1 1 

FORMAT (2,2X,33HC0EFFlCENTS OF QUADRATIC EQUATION, 8X, 
• 8X ,2HB° ,E 12.S ,8X . 2HCii,E12*5) 

2HA« 

•E12.5, 

35 

36 

t 2 

FORMAT! 1;TX,28hUNEQUAL REAL ROOTS XI- (,E|2.5,8H ) 

•2H 1 ,/,33X iSHX2=« (,El2.S,8H 1 + | (lElZ.SiZH )1 

4 

I 

( .Et2.5, 

3 7' 
JB 

13 

F0HHATUCX.28HE0UAL REAL ROOTS Xl- (.E12.5.8H 1 

•2H )j/,33X ,SHX|- 1,EI2«5,8H 1 ♦ I <|E|2,5,2H )) 


I 

( ,E12.5. 

39 

BO 

1 B 

F ORMAT ( icx , 28 MC 0 MPLEX ROOTS Xt- (,EI2«5,8H ) 

•ZH 1 ■/.33X.5HX2- (.EI2,5.BH 1 9 1 I,E|2.5,2H )) 

♦ 

1 

< lE 12«S , 

B 1 


END 










'RT.5 

(JUICKP 
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12 JRGN B 5 

fj NftlsN ii ' i K&Ni“j‘ttGN 

IH IRGNl a JRGN + I 

jRGrjj,"* jrgn"-»- 1 - ' ■ 

XN B PC » 20. 

PK B pc' / PAMB 

XNUdI a i^VS^XN 

XtJN'lzT'a l,'i»XN 
XNN(3) » XN 
xnS ( iV'S' «XN 
XNNI5) B ,a*XN 

IF(PK.Lt.6i5'0.)&aAMHA a 2. •f d 025« PK 
1 P t PX . G T .600. IG GAHHA a <7, ■>■ .001 » PK 
GGAKNAsvibAHHA/S. 

GAHHA«Din 

tJO'lb'l jar.5 

GAMHA a GAHHA ♦ GGAMHA 

&.\H«AX{J) o gamma 
G = GAHMA*PI/I6n. 

CGAMMAtJ) “"cbs’lG) 

I AH S IJ j. J A I G > 

tangziji'b tangI j ) 

TNG21J-H) ° TANG?(J) 

TTNGt J+1 ) a TANG( J) 

A [0_I_ITNG2( J+t 1 B TTNGt j+n*«2 

TTNG'i'i ) ^ 0.0 ” 

_ TNGZtll B 0.0 
TTNG2tl)B O^O' 

HI B I./TAN6(5) 

HZ( 1 > a 0.0 
HZ<2) ■ 0.2 
HZ{3» b'c.R 

H2< M > B 0,6 

HZJ5J o 1,0 ■“ " 

HZ{6) B 2,0 
HZ<7) B R.O 
HZtei B 6,0 
HZ(9r B 0~. 6 

o_i 1 0 . g ^ 

T>'o 102 lal“,tO 

102 HZt n n HXU ),H1 

CbO 

DO I CM 1 » 1 , IRON 

H2CUbt ( I 1 B HZ 1 M *»3 
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HIH2Cd<i) • HZU + I»*»3 - H2CUBE( I > 


DO 104 J - I ■ JRGN 

L«L* 1 

V(L> ■ PI/3.0 •ITTNG2( J+n»TTNG2tJ) )*HlH2CBU> 
X» pi.hi.»?*<tTn<;?IJ'»i>-T‘ING2(J>1»1H2(>*II«’HZ 


PKOP ( I » 1 . J) « XNN ( J I «X 

PROP 12 . 1 .J) « 2317. 

H»HZ < I > 1 >-HI 

„1 EJ.H N 0 .it, LT.4.1 PR0P(2>1.J) ■ 23 17.»C2 

TfIH.GE.H.) PR0P(2.I»0> «> C31J»*2000, 

PR0P13, I .Jl»6,0 . 


PH0P13.I tS)«3.0 

PROP 15.1 

PR 0 Pl 6 .I.JI«PC*X/ 8 .a*PR 0 P(B.I,J)/TC 

IF (PR OP 16. 1 .J} .LT.PAM.LPflOEl»iX».Jl>».PAJtB 

PROP 17 . I . JJ«.249 

PROP (S, 1 ,J)“.n26 

PR0P19 , I , J) «. I 52 5^ 

_Z-R0P.(i.5 I 1., J ) 5,.itl 

PROP 12 , 1 , J I “PROP I 2 . I » J ) *»4 ^ 

I PR OP 1.5±IlJ>“?.B 0P IS. 1 .Jl»«4 

REfuRN 
End 
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Lte-ALBlN202oTPFS 

•SCATTR 


1 


subroutine SCATTR 


2 


INCLUDE DINiLlST 


3 

C ANISOTKOPIC SCATTERINS 


H 

901 

CALL RANDDHIUI 


S 


|F (U-A1M7QO,70I i702 


6 

7C0 

£TAD«SQKTISI*U) 


7 


60 TO 90S 


8 

7DI 

ETAD»SA 


9 


60 TO 9C& 


10 

702 

IF I U-CI K 1703,709,735 


1 1 

703 

FM2l3slb3-2.D» (U»AK-A1 MSZJ 


1 2 


IF I PH21 3,LT.0,a 1 Pn2l3»0.0 


13 


£TA0»SA*b2*Sj-S0RT(PH2l3» 


tM 


GO TO 9C5 


IS 

709 

ETAD»bB 


1 * 


60 TO 9C5 


1 7 

70S 

IFIU-C2M 706,707.708 


I 8 

706 

PH2lJ»(Sb-2,0»IU*AK-C|l»S9) 


1 9 


IF(PH2I3,CT.0.0» PH213“0.0 


20 


ETA0»SU+59»SH-SURT(PM2l3) 


21 


60 TO 9C5 


72 

707 

ETAO-bC 



6 0 To‘ vQ£>'“ 

24 >7 » 0 .7 t 1 


‘ 2 S'" . '■ 

76 

709 

PH2133(S7-2.0»|U*AK-C2>*S6) 
1F1PM213.LT. 0.01 PM2l3«Q.O 


27 

28 


£TAD3SC+b6*SG-SQRT 1 PH21 3) 
60 TO 9C5 


29 

710 

ETAOaSD 




60 TO 9C5 


j 1 

71 1 

1F1U-C9M712,713.719 


32 

712 

PH2t3»(S9+2.0»(U*AK-C3)*S8l 


33 


IF IPH213.LT.0.Q1 PH213»0.0 


39 


£TAOa30-b8*SF*SQRTlPM2l3) 


35 


60 TO 905 


36 

713 

ETAOnSE 


37 


GO TO 9Cb 


38 

719 

ETAO»PI -bUHT t aK* 1 1 .C-U 1 »2 . 0« ( P I -S£ » 7S I > 


39 

905 

CALL KANDOMIU) 


90 


THETD • T60PI • U 


91 


COETD*COS (ETAo 1 


92 


SlETDoSiNlETAO 1 


93 


C0THU»C0S1TH£TD), 


99 


SI THD«S I N 1 THETD 1 


9b 


SI TH«51 N ( THETA ) 


96 


COTH»COS ( THETA 1 


97 


ROX»SltTO»COTHO 


98 


REY«SI£TD»SIThD 


99 


RE2-C0E ro 


50 


RX« R0X»5I TH*REV*C 0 SET A*C0TH+REZ» SINE TA*COTH 


5 1 


RY=-R0X.C0TH+REY*C0S£TA*SI TH*RE2*S1NETA«SITH 


52 


R2»-KEY«5 1 NETA+HEZ*C0SETA 


53 


THETA»ATAN1RY/kxi 


5** 


IF(RX)I12.113,1I3 


55 

112 

THETAsTMETAtPI 



76 
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LtL»/aBIN202*TPFS.S0RTN6 


1 

2 

~i 

s 

h 

6 

■■'7 

e 

9 

L5. 

1 1 
J 2 
1 J 
1 M 

15 

16 
T?' 

I fi 
» V 
20 
21 
22 
2 i 

2 H 

; 5 


SUBR0UT1NE”S0RTNQ {PiAI ^ 

INCLUDE GEDH.LIST 

COliHON/KtSULT/' 10 , ID I'SK i I 0 ARE A t KrInQ . KPH I *D I S7NS , XX ( 3 ) 

dihension Cl to) .pta) ia ( 3 ) , s« i n i *t j 

DIME NS I UN PU3I ,P2(3) (ROOTSf H,2) 

*72,22 JaSQRTt (X2-Xn«*2+tr2-Yn**2*(Z2-Zl )*«2I 

ATKiciXl ,yt , zT,X7,Y2,z2,X3,T3,Z3)» 

..S«RT( (XI *IY2-'r3)+X2«(Y3>rn«X3*(Y|-Y2)l**2 

• ♦< Z I » I X2-X3) +22* ( X3-X 1 ) ♦ZS#! XI-X2I >**2 ' 

“ ♦ I 7 I * ( Z2-23 1 +y 2» ( Z3-Z n*Y3» ( Z I -Z2 ) >«»2 )/2«0 

IWRITL = 0 " - - . . 

__ P I »3. I 4 1 b9265 

'“'"EHS»1 .Qt-4 - - ■ 

D1STNS.1.CE30 

10=0 ■ ■" ■■ ■ - 
DO 900 N0ATA» j .NTARGT 

JOJ .3 ■ — — ■ — _____ 

_00 SOD 11 a t , ID 

bdo *C U Vl-CCLF (N uTta , II r ’ 

l.p _( .! 0 0 0 7 IN OAT A) .EQ .51 GO TO MOI 

IF ( iuUUY (NOAT a1 .EU *6 ) GO TO 402 

PI NbEA (C ,P , A .ROOTS, IPASS J 

IF ( I F AbS',£D,~0 ) GO TO 40D 
ICHOSt- IbOOY (NOATA) 

0 0 * 6 c i ' I I »'i ,“5 


26 

27 

2 R 

24 " 

30 

3 1 

32 

33 

34 
3 b 
36 

■37 

38 

39 ' 

41 ' 

42 

4 3 
44 
4 'S' 

46 

47 

48 

49 ' 
bO 
b l' 

52 

5 3 

54 
bb 


PI ( 1 1 1 »i;ata (noata . 1 1»4 1 

601 P 2 II I )■ 6 ATA (NOATA.ritTl 

IF ( ICHUSE.lt . 41 GO- TO 404 

00 4 QS ii»l ,3 - 

405 PI II n« 2 .a*p I ( 1 1 1 -p 2 ( 1 1 ) 

404 CALL'rHUbElp'KP'i, ROOTS, SHIN, lOUT) . 

IF I 1 OUT .Ht.o I GO TO Hna 

GO to' 402 ’"' 

401 CALL P INGEBIC.P.A.SHlN.tPASSl 

IF (IPa'SS.EQ.M go T '6 402 

50 _T 0 4 CP 

402 CONTI NUt 

tF (1 B 0 0 Y JND A T A U JN E . 6 ) GO TO 403 

CALL DISK I I ,NDATaIp,aVshiN, IHIT) 

GO TO 412 

403 CONTINUE 

- CHEC K I aSH 1 N ( 4 I « A_( ! ) - ( S H I N I 1 I >P ( 11 ) 

CHECK 2 »SM I N (4 1 •A( 2 Y-(iHrN( 2 l-Pr 2 I ) 

CHECK 3 »SH 1 N |4 I oA J 3 I •* ( Sli I N I 3 I -P { 3 I ) 

SUH'cHK«Ab'S (c‘HECK"n*A'Bs i'CHECK 2 r*ABS(CHECK 3 ) 

IF ISUHCHK.GT.EPS! GO TO 400 

IF (IDl.NE.OI GO TO 4 |I ~~ ^ 

IA._iIBI)OY(NOATA I .NE.Sl GO TO 412 

PLAlaATRlGr SKl'N't I ) , SHInV 2 T',’s'h fNTsn 
* D ATAINOATA.SI .data |NDATA, 6 ), 0 ATA( NOATA ,7 ) , 

* OATAINDATA.e) ,dAfA|NDAfAT 9 )'i 0 ATA(N 0 ATA, 10 r 1 

PLA 2 «ATH 1 G( SH IN ( I 1 , SN I N ( 2 I . SH I f) ( 3 1 , 

• OATAINOATA.S) .nA"TA(N 6 ATA, 97 ,OA”f A(NDATA,IOI , 

DATA I NOATA ,in,DATA(NDATA,| 2 ),DATA(N 0 ATA,I 3 ) | 

PLA' 3 «ATrtlG( SH I N ( I I . SM I N ( 2 I . SH I N < 3 > ^ 


78 
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DATAINUATA.I I) , P AT A < NO AT A > 1 2 ) , 0 AT A ( NOATA » 1 3 ) 


• DATAINDATA.IH) .PATA(NDATAil5| ,DATA(N0ATA>I6) ) 

PIAH«AT RIG( SHI NIl } • S M I N ( 2J t SM t N ( 3 

» DATA (NP AT A, 5) ,OATA(N6aTAi6> i ti AT A < NOATA , 7) , 

DATA1NDATA.1H).PA TA1NIJATA »I5 I .DATA(Nqa TAi t 6» ) 

PCHtCK»PLAREA( NOaTA ) - (PLA l+PLA2*PLA3 + PLA‘t > 

IF IAB S( PCHECK /Pl AREAIH DATA) I.GT. EPS) Gq TO M OO i 

GO TO mz 

IF_I lUOUY lNDAT^ljS.Lt aj^Gp.TP. RQD 

IF (iui.EU.I .AND. IBODYINDATAl.LEiZ) GO TO <il 3 

IF ( I 0 I ■ EQ.2) GO TO Hl5 

GO TO 430 

HHI»H aHGL (SHIM 1 USMij!l(2) ,SMI_N(3) iDATA I NOATA »S ) ,D A TA < ND A TA 1 9 1 . 

• DATAINOAT A, inn 

GO T O ..4(4 

HHl-RANGt(SHlNt"n ,SHlNl2) .SHiNU'l.DATAlNDATA.S) . D ATA ( NDAT A • 4 ) « 

_J| M.I* < ND ATA .7 1 > 

HCHECS<»hiUOND(NDATA> 

IP ( J.H P O.Y < ,N p A.T A I , E « 1 A N D.t J D I , E 9 j U . . R ? HE CK»«BO N DU < NO AT/ 

IF (HHI .GT.RCHEC<. OR.HHI.lt. RRINGINDaTA, ton ) GO TO HOC 
CONTINUE . 

IF lOlsrNS.LT.SHlNlHM GO TO HOO 
0 1 STNSnbM I N I 4 ) 



CONTINUE 

IF ( laOUY I ID I .EU.Al 

lOAREA»a ’ 

If (IP.LU.O) GO .TO. lOOO 

IF ( ioi 3 K .NE.r. I GO TO iiao 


GO TO lOOC 
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12 


13 

is 

I «• 


NTOTAL»NAREA( tO.l) 


SS- I .0E30 

.ll»> •NTOTAL 

TVlE^t-RANGErxxfl » ,XX(2> t X X I 3 ) , VECTOR U 0 , 1 I , I ) , VECTOimU'71 I »2) t 
VECTOR! ID. I I .3) I 


I 7 
Iff 
I 9 
20 

1 I 

2 2 
2 J 
21 

2 5 

26 
27 
2 8 _ 
2 9 
TO 
J 1 
J 2 
33 
3 H 

i'b 

36 


> I 3 


JF I TVILr.GE.SSI go to 110 

SSoTVIErt 

I DVRE-Aa I'i ’ 

CONTINUE 

narc»ua lA ("id iTi 

NFKUST-UaTA ( 10 . 2 ) 


bS 

56 _ 

s/ 

b 8 

5 ?~ 


IF ( luilUY n 0 ) .NE.RI go to 101 ^ ~~ 

. nDj8i,DATA( M),VI ,DATa(ID,10» , 

* DATA! i 0.5) .DATA! 10,6) .DATA Ho, '7) ) 

..fl.LJ.T'^*'''‘>t(DATA(Ip,5) .0ATA(ID,6),DATAnD,7),XX(I),XX(2),XXI3n 
DOTa(UATA(ID,^)-DATA(IO,81)« ( X X'u ) -0 aYa ( I D. 5) ) 

♦li?AI A'.*“»A>TJiATA( ID, 9) )*< XXl2)_-DAjAn_D,6)J_ 


IC2 


• ♦ (data I ID,7)-DATA( 10,10) )0(XX!3)-DAfA(lD77) ) 

C0SGM3DUT7! P2P l«P^I T_1 

QAHMAaACOS(COSGM) ‘ ~ ‘ "" ~ 

-f^J**^* ^iJATA U D ,2 1 

RTOpaN)KUbT" " " ■■■ 

ANGTOPaH lUH *PM I 


IF (gahma 7gt7angtop ) GO TO 105 


137 

13 8 _ 


rn='nf 

_ PHlRNlaPHl » !R n -1 ) 


1 39 
1 lO 


PHlHN 2 =PMi*RN 

IF IGARHA. GE.PriIRNl. and, gamma. LT.PHIRN 2 I GO 

TO lOS 

!ii 


If ( GAHMa .LT .PHI RN l I GO TO 103 


1 12 


__NjFaHF+l 


1 43 


iOAREAalOAREA+NARC 


1 H 1 


GO TO 105 


IIS 

103 

NFbNF-I 


1 H 6 


I DAREAo IOAREA-NARC 


IH 7 


GO TO IDS 


118 

101 

CONTINUE 


119 


NF» 1 IDAKEA-l i /NARC+I 


! SO 



IF llbOUY(lO) .UE .2 .OR* IBODYUDI.GE.S) 

GO TO 106 

i 51 


PIT = RANGE[DATA(IO,&),D"AfA!l 0 , 6 >,DATA(lD, 7 ), 

XX! 1 ) ,XX( 2 ) .XX( 3 ) ) 

|S 2 


P 1 ARRANGE (DATA nO.S) .DATA UO, 6 ) .DATA! ID, 7 I . 

VECTORltO.lDAREA.lli 


JX_‘'fU*trL*P‘A) GO TO 19 1 

If 1 idakea'.le.narcT’go to j66" 

IPlalOAKEA-NAHC 


PlBaRA‘NGE(0ATA(To,5”) , DA T A < 1 0 , 6r,'o AT A | fb,7) i VECTOR ( I 0 . I P 1 . 1 1 . 
VECToR1io.IP|,2|,vfctORHD.1P1,3|1 


60 
6 1 ■ 
62 
6 3' 
6 H 

6 6 
67 


191 


PI ABMPIA+PIB) /2.0 
IF IPlT.LE.PlABl GO TO 106 

NF«NF-i 

1DAKEa«IPI 
“go to ic6 

IF ( lOAREA.GT.NTOTAt-NARCl 60 TO 106 


I P I » lOAKt A+NARC 

LR*lAn_D.Sl .DATA! 10,6) .data ( 10,7) .VECTOR! 10, IPI .1) , 

• VECIOHI ID,IP'U2”) ,VE'CT“bR(IO,'jPi ,3) ) ~ 


REPRODUCBILrry OF THF 
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PlAB«(PU»PlBl/2.n 




IF ( lAHITt.EQ.O) GO TO 1000 
-_*k1 TE 16, I2U 1 DAREA, NaH EAI 10,1 1 ■NF.VAREA(ID,IDARE*) 

GO TO ICCO 
___ CONTI NUE 

’if' 1 ilUiK“.EQ^?r GO TO 1200 
PKX « XXtU-DATAirn.S) 

PRTKXxi2l~JATAcTD,6> — _ . 

_PR^XX1J|-0ATAUD,7> 

GO TO I20J — - - 

PUXaX X 1 n-pATA ( jo.a> 

PRY»XX(2)-DAfAno,9i’" 

PK Z»XX.I 3) -0 ATa1 to. I 

N(<G«NCKING1 ID, IDISkT "" 

_/KHAG«PANGE (PRX,PRY,PRZ,0.0,0, 0.0,0) 

IF INKGtLE.n GO TO IlOH 

.. .M5i XK»2,NRG 

RAVtRo (KMtANC 1 ID ,KX , I D I SK } ♦RHEANC ( ID .ICK-l , {DISK) 1/2,0 

IF 1 P H H A ^ LT.RAVFRI GO TO 11 02 

CONT I NUt 
_J<R_ING = N)<G 

Go'fo'Vioi" ' ' " 

KRINGbKK-1 


GO TO I 103 
KKINGb) 


SIGNT“PKX*TREFU0, I , IDISK}*PRY»TREFI lDi2,IDlSK) 

! ♦.PXZ«_T.REF 10 I SIC 1_ 

S I 6N S »PR X • SR£F < To , I , ToTl SK ■) +p R Y « SHEF 1 I D , 2 , I D I Sk') 

? »PRZ»SREFI I0,3,lDlSKl 

ALNGTnRANGElTKEFl ID, I , I 0 fsK» , T REF II 0 , 2 . 1 6 I SK TREP U D , 3 . 1 0 I SK ) 

» 0, 0,0 • CjiJ • 01 

DENON = ALI'(G'T»PhmAG ' ' 

.if„i*»S(tJLNO«l.LJ.I.pF-lqi GO TO 1302 

ROTANG^i I GNT/OENOM 

_if. < P9.TANG.!.,GT, I ,6l R0TANG»S1GN< l ,o,rotang ) 

CHECK»Aasi ACOS ( ROTANG » i - 

IF (SIGHT. Gi.n»0»A NO. SIGNS. GE.O.nl GO To 1301 


IF IS1GnT,UE,0,0.AND,S1GNS*GE,0*0> (>0 To 1301 
AHG» 2«n«p 1 -Check 

GO TO mo “ ’ ' ‘ ' 

ANG.“ check 

"go To”ijid - -- 

ANGbO.O 


COUN TbAnG/DPH IC 1 I 0 i ~ 

_1].P.*'PATA 1 ID, 1 2 

KPKl "CCUNT+l ,0 - - - . - . 

._.iF„JKPHl,GT.HDl_jipjlJ_-_l}ii: 

ANG|BANlj«ia6«0/PI 
1DAK£A» IKRING-1 1*IID»KPHI 


IF llrtRnE.EO.oi GO TO 1000 

ARITEI6, 131 1 1 KHFNG.KPHI.aNGI ,CRINC'l | D , K R I NG , 1 0 I SK ) , 1 0 AR E A 

return . 
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22M 1 F0RHAT<J5> 

?25“" ■ 2 FOHMAT<HeiO.S'l " 

7 26 5 ■ FO RHATt/. IX • 1 <*HEK 1 S S 1 ON PO 1 NT 1 2X M X_l j^iEl 1 «5 , 2 X » 6H P < X 2 1 - ,E U ■ S i 

227 ' • 2r,6HP(X3”)»,Tir.'672X. J7HDlRECfiON COS InES 1 3E 1 2 ,‘s > 

?_2 8 7 FORMAT ( i X , tR H hIT TAR g ET NQ»tl2iRX,A ti|D I S K b i_I 2»R X | 

liT • 9H0 1STANCE-',ei l.5,5X.3HXl«,En . S , 3X , 3Hx-2i t E |J .V, 3X , 3HX3- , E 1| , 6 ) 

230 a _FORMAT (2A , I HHNO IMPINGEMENTJ 

?il m“" rORHAT(3x7riHAHEA I NO £ X « , 1 3 , 3 X , 2 2H0F TOTAL NO. 0 F ' A RE A S» , U , 6 X , 

232 .20HFRUSTON (AXIS DIRECTION) NO . , I 3 , 3X , I 7HV I EW POINT AREA » . E I 0 . H ) 

2 3 3 ' ■ I 31 r " (■ ORHaT ( 3X ,2NHC0NS IRAINT DISK RING NO , . I 3 , 3X , 7HPH I NO,.‘ 

238 » 13.3 X , I BHANGLE(CL0CKW I5£) -.F8.3 i3X. i7hVJLER. POIN T AREA b.EIQ.H, 

23G « 3x , t iha'kea ■ Index- , fi) 

236 end 


^Jf-RTib SPHERE 
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L E e . alb IN 202 »TPF>. SPHERE 


1 

2 

SUBROUTINE SPHERE t « A VE * R AO I US , 1 NDE X , QE X T 
: 5 I Mi.N S I 0 N A y 2.0 1 , B ( 1 20 , 2 > 

.QABS) 




J 

H 

equivalence (RARG.XKAJ 

DATA KONTRL .LENGTH/ 1 iO/ 





SNSUOOHO 

SNGLOoBA 

s 

data LL /12/ 





SNGL0060 

6 

REAL 






SNGLOOfO 

7 

k AI , 

A'IS 1 AR t 

AREA 

. AREAl 

i ARS 

1 

SNGLOtOO 

fl 

B Al , 

- *?- .t Bl_ ,_j 

Bis 

t BR 

. BRS 


SNGLOl 10 

4 

C CCAB , 

tEXT . CHUER, 

Cl 

• CONST 

• CR 

• 

SNGL0120 

10 

0 CRPK . 

CSCA . DEN , 

D1 

. DR 

. DXR 


SNGLO 1 30 

1 1 

E OY I , 

DYR • 010P6 . 

ENI 

. ENR 

t EXT 


SNGLO 1 HO 

1 2 

F FAC , 

FACTOR. FI 1 

FIFTY 

1 FOU 

. fr 


SNGLO 1 50 

13 

G GREAT t 

HALF 1 

ONE 

. H 

, RATIO 

• 

SNGLOl, 60 


H RPR 

RX . RXN . 

RXJ 

. RYI 

. RYH 


SURl 0 [70 

lb 

I 5CA 1 

SIGI • S|GR • 

SHALL 

, " ' THR 

. Tl 


SNGLOieO 

1 b 

J tign . 

TR 1 TWO , 

TWOPl 

A. X 

. XL 


SNGLOl 90 

17 

K T| , 

YR . Z , 

ZEr 

t DARG 

, dblef 


SNGL0200 

i 6 

L PSI , 

CHI t GR 1 

61 

t A 

. B 


SNGL02 10 


DATA NN/I20/ 






5NGL0270 

20 

EQUIVALENCE 

IN. NUMBER) 





SNGL0290 

Zl 

D 1 MENS ION CHM|),PSI<lliGR<t)|0|(n 

‘4 



SNGL0300 

22 

EQUIVALENCE 

» Ad , 1 ) ,CHI ( 1 ) J , C A( 1 .21 .PSI ( n ) . 



SNGL0310 

2 3 

1 

(» ( 1 . I ) . GR 1 1 ) ) • (6 1 1 t 

21 . GI ( 1 1 > 



SNGL0320 


COMPLEX JMPE_X.JigoEX.CARG 





SNGLOh I 0 

2b 

equivalence 

( JNDEX .CARG 1 , (X .DARG I 





” SNGL0H20 ' 

26 

REAL btTGLF 






SNGL0H30 

?7 

DATA XER.ONE 

.TnO.THR.FOU.KALF/O.nEOi 1 ,0£0,2.0EO,3, 

OEO.'l.oeQ.O. 

5E0/SNGL0H50 

2ti 

DATA PIiTAOPI /S-lHlBRZAb.i.JfiSlAbrta/ 




5NGL0M6D 

29 

DATA TIGN /I 

.tlEO/ 





SN6L0H70 

30 

DATA SHALL .GREAT.F IFTY <DI DP6/ 1 ,0E 

•35, 1 .0Et35.50.OEO. I.OE*B/ 


SNGLOHBC 

3 1 

5NGLK 1 OAKti > 

• DARG 



6 


SNGL0H90 

32 

__,.5QRTF t DARG.l 

B SURTtOARG) 





SNGLOSQO 

33 

RE ALF 1 C AkG 1 

B REALICARG) 





SNGLOSIO 

3') 

A 1 HAF 1 C AR6 ) 

B A I MAG ( C aKG ) 





SNGL0520 

3b 

EXPF (DAKGI 

a EXP(DARG) 





SNGLQS30 

36 

COSF { DAKG 1 

B COSIDARGI 





5NGL05H0 

37 

S 1 NF ( OARG 1 

B SIN(DARg) 





SNGL0550 

38 

IFI XF ( DARG 1 

B IFIX(DArG) 





SNGL056Q 

3V 

ALOGF 1 DARG I 

» ALOG(DArG) 





5NGL0&70 

HO 

ABSFIDAHGI 

a ABS(OARG) 





SNGL0S80 

H 1 

F LOATF ( 1 ) 

• FLOAT! n 





SN6L0590 

H2 

OBLEF J RANG 1 

a KARG 





SNGL0600 

M3 

K TKL = KONTRL f’ 1 





SNGLOB20 

HH 

GO TO 1 2eo 1 . 

2002. 2J03) ,KTHL 





SNGL0830 

Hb 

2001 CONTINUE 






SNGLO930 

M6 

QAOS B ZFR 






SNGL0980 

H7 

QRPrt ■ XER 






SNGL0990 

MB 

COSTHE B 2ER 






SNGL lOOO 

H9 

ALBEDO B itR 






SNGLIOIQ 

^0 

area B p I • s * D t u S • ® ,2 





SNGL IO20 

S. I 

AREAl ■ AREA/(FOU*Plf 





SNGL 1030 

s ^ 

ASSIGN 11 TO 

JUMPO 





%uc^i. iQMn 

53 

ASS1GI4 17 TO 

JUMP 1 



. 


SNGL lOSO 

5*^ 

assign 22 TO 

JUHP2 





SNGLI060 

bb 

GO TO i:;r33 






SNGL 1070 
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56 

57 
&B 
b?" 
60 


ENTRY 8MIESCtWAVE»RADIUS,|NDEXiSlGMA,9EXT*OABS,eRPR,COSTHE. 

A t ii r r\ ' ' ** 


I ALBEDO) 
2DC2 C ONTINUE 

AREA ■ ■ 

AREA! > 


ONE 

ONE 


61 
62 
6 3 
6'4 
6b 

67 

i,d 

6 V 
70 

7 1 
7^ 
7J 
/H 


ASSIbN 10 TO JUHPO 

assign 16 TO JUMRI 

~AbMGN 2i" to" JUMP2" 

GO TO iDoao 

ENTRY ■ ■ CHI Is'cl HA VE'I RAOlUS .TnOEX iSl'GMA ,<)E X t I'O A BS R PIT , C 0 S T HE 7 

lALBEOO) 


SNS LlO fiO 
SNGLI090 
_SNSLI 100_ 

s'ngli 1 10 

SNGLl 120 


2003 CONTJNUL 

AREA n 

AREAl n 


P I »Radjus_»«2 

AREA 

^assign 10 TO JUMPO 

assign 16 TO juhpT 

as s I G N 2 j T O JUHP2 

GO to~Vc6oo 


75 

‘JNUEX' 

K 

INO" 

7 6 

SIGH 

■ 

ZER 

7 7 

SIG I 


"zek" 

78 

EXT 

B 

ZER 

79 

SC A 


ZER 

80 

RPR 

m 

ZER 

6 1 

AR 

m 

'z'er' 

82 

_ AI 

m 

ZER 

83 

BR 

m 

zer" 

89 

BI 

a 

ZER 


Sb 
U 6 
67 
bS 
a 9" 
_ ’0 
9I~ 
92 

' vi" 
99 

95 

96 

97 
va 

' 99 ■ 
I oq_ 

i 0 r 

I 02 
103 
109 
tub' 

I 0 6 
1U7 

I Ob 

i 

I 10 
111" 


IF(LENGfH.EU.O) LENGTH 
IF 1 length .EQiNN I GO To 


«■ NN 
1 1000 


SNGLl 1 30 
SNGLl 190 
' SNGLl tbO 
SNGLl 160 
SNGLl 17b 
SNGL 1 1 ao_ 
' SNGLl 1 VO 
_SNGL 1 200 
SNGL 1 2,1 0 
SN6L1220, 
SNGL I 230 ' 
_SNGL I 290 
SNGL l2bo"' 
SNGL126Q 
'"SNGL1 270" 
SNGL1280 
SNGL I 290 ' 
^N6Llj00_ 
SNGL 13Tb 
JNGL1320 
SNGL 1330' 
SNGLl 390 
'SNGL 1350 
SNGL 1360 
SNGL 1370 
SNGL I 380_ 
SNGL I 390 


HR I TE 1 6 I fa999 1 

• ari'aUijTU 

.‘J’1’._A0««AL<7.‘hiarray_s in calling program do not agree hith ti.ose in stisMGi man 
IflROUTIIlt SPHERE) ■ ■ ^ 'SNCLlHiO 

SNGL1920 
SNGLl 930 
SN6L1990 
"SNGL19S0‘ 
SNGLl 960 
SNGL1970 
SNGLl 9B0 


IIQOO CONTINUE ^ ~ ^ 

1 “__THOPI *ORLEF (RADI US) /DBLEF (WAVE ) 

RX o ONE/X 

RX2 « RX*«2 . 

= ~5 ♦ ' I f'i X F ( X ) 

“ N ♦ I 


N 

N1 

M 

L 


S*IFUF(£XPF(AL06F(X/TH0)/THR) ) 


N - 1 
N - 2 


ir(NtLE«NN) GO TO 1000 

<<»1 T£(6 .9991 W a VE. rap I us . ind ex, X>N. LENGTH 

999' F0KHATI99H1SUbROijTINE SPheRE“c ALLEO wVTh WA'VELENGTh" - ,Et5.8, 
lllH, RADIUS ■.EIS.B/29H INDE X OF REFRACTION ■ ( ,2E 1 5.8 , 9H ) • KA 

IH, 32H arrays are dimensioned BY NN • 


2E15.8,19H REQUIRES N » , . . 

3I9/3SH recompile HITH LARGER VALUE Of NN.) 

STOP ■ ' 

_I0Q3_ CONTINUE 

"C MIXER = COSF(X) 

CHI ( I ) » b lNF (X) ♦ CHiZERoRX 

ctiTTr) 


SNGL1990 

SN6L1500 

snglisid' 

_SNCL1S20_ 
SNgL lb30' 
.SN6L1590 


-CHiZER ♦ CHiiTi.a.bVRX 

C ONS T _ »_THfi 

DO l" r»3'i'N 


, SNGL 1550 

SNGL1560 

SNGLIS70" 

SNGL1580 

SNGL1590" 
SNGL 1 600 
SNGLl 6*1 O' 

SNGL 1620 

SNGL 1630 
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CONST ■ C QNST * TUtO 

CHHJJ «-CHni>2| ♦ CHl ( I«l ) •C0NST«^X 

„.coNTjNyE . 

CONST ■ FCOATFIN ♦ LL * 2 ) ’ 

* /float (2»(n « u 

OXH » CONST*RX - X/<Tw5*c6nST ♦ ONE* 

;_f,L?AT (,2»_(JL JL Lll ) 

RATIO » < TftO. CONST THRYiRX _ 

..OQ.J. _ I«UL . 1 |-I__ 

I - LL ♦ 1 ' ~ 


SNGLI6ND 
SNSLUBO 
^iiaklAATL 
SNSLU70 
SNG L1680 
SNGL t 690 
SNGL I 700 
SNGL 1710 
S N G L t 7 2 0 _ 
SNGL 1730 

I7un 
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&* C ENTRY QHlESCtWAVEiSA0mS.lr<DEX»5|GM»iQEXT.qABS«QRPR.C0STHE. SNGtloeO 


S7 

&S 

c lALBEOb) 

2002 CONTINUE 

SNGLI090 
SNGL 1 100 

59 

60 

AREA B ONE 

AREAI B ONE 

SNGLI 1 10 
SNGLt 120 

61 

62 

ASSI6N 10 TO JUMPO 
ASSIfaN 16 TO JUMPI 

SNGL1130 
SNGL 1 190 

63 

ASSIGN 21 TO JUHP2 

SNGLI ISO 

6*1 

GO TO 10000 

SNGLI 160 

6b 

C KN1KT CNlESClWAVEiRAOlUS, index, S ieHAi«EXT,QABS,QRPR,COSTHE, SNGLU70 

6 6 

C lALUEDOl 

SNGL 1 180 

6 ; 
68 

20C3 CONTINUE 

AREA B PI*RAUIUS**2 

SNGLI |90 
SNGLt 200 

69 

70 

AREAI B area ^ 

ASSIGN 10 TO JUKPO ‘ ' 

SNGL 12,10 
SNGLI 220 

7 1 
72 

ASSIGN 16 TO JUHPI ^ •• 

ASSIGN 21 TO JUMP2 

SNGL 1 230 
SNGL I 240 

7 J 
7 H 

GO' TO iDcao 
10000 CONTINUE 

SNGL1230 

SNGLt26D 

73 

76 

JNDEX * INDEX 
SIGR B ZER 

SNGL1270 
SNGL 1 28D 

77 

78 

bIGI ■ ZER 

EXT B ZER 

SN6L1290 
SNGL 1300 

79 

H3 

SCA B ZER 

RPR B ZER 

SNGL1310 

SN6LI3Z0 

a 1 
62 

AR B ZER 

AI » ZER 

SNGL133Q 
SNGL 1340 

B3 

BH 

OK » ZER 

RI i ZER 

SNGLI 350 
SNGLI 360 

Bb 

IF(LEN&rh,Ey,0) LENGTH b nN 

SNGL 1370 

B& 

1 F < LENG TH . EQ . NN I GO TO 1 1 000 

SNGL 1380 

67 

8P 

ARITE(6, Ui999 1 

10999 F0RKATI71H1ARRAYS IN CALLING PROGRAM DO NOT AGREE WITH 

SNGL 1390 
THOSE IN SUSNGLI40O 

89 

IBHOUTlNfc SPHEREt 

SNGL INIO 

90 

STOP 

SNGL1420 

•9 1 

1 1 SCO continue 

SNGL 1430 

92 

X B TWOP I *OBLEF 1 RADI US) /OBLEF ( Wave ) 

SNGL 1 440 

93 

HX B ONE/X 

SNGLI450 


HX2 = RX»*2 

SNGLI 460 

93 

N * 5 ♦ IFIXFIXl ♦ B»IFlXFtEXPF(ALOGF<X/TW0»/THR) ) 

SNGL1470 


Nl = N + 1 

SNGL1480 

9 7 

M ■ N - I 

SNGL 1490 

96 

L “ N - 2 

SnGL 1500 

9 9 
1 00 

1F(N,LE,NN> go to 1000 

«RITEI6,999) WAVE. RADIUS, I NDEX »X » N . LENGTH 

SNGL ISIO 
SNGLlSZO 

101 

102 

999 FORMATIHSHISUbROUTINE SPHERE CALLED WITh WAVELENGTH • . 
IlIH, RADIUS B,EtS.8/2<4H INDEX OF REFRACTION > I,2EI3.B, 

E15«8, SNGL1530 

9HI • KA B .SNGL1540 

1 

2ElS.8,l‘tH KEguiRES N b , IN, 32H ARRAYS ARt DIMENSIONED 

BY NN B , SNGLITBO 

1 

3I4/35H RECOMPILE WITH LARGER VALUE Op NN«) 

SnGL 1560 

sub 
i U6 

STOP 

_ 1 020 CONT INUL 

SNGL I 570 
SNGL 1580 

IL'7 
1 08 

CHI ZER » CDSFIXI 

CHim “ SINFtXl + CHIZER«RX 

SNGL159D 
SNGL I 600 

1 U9 

CH1I2) b-CHIZER ♦ CHItl)«3.0»RX 

■ SNGL1610 

1 to 

CONST B thk 

SNGL 1620 

1 1 t 

DO 1 I«3,N 

SNGL163Q 
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i 12 



CONST ■ CONST ♦ TWO 

SNGLlA^O 

1 1 3 

i 1 H 


I 

CHtm --CHIU-2I ♦ CH1II»H*C0NST»RX 

_C0NT1NU^., _ 

SN6LU50 
SNr;L 1 AAn 

\ 1 S 
1 i A 

c- 

— 

CONST » FLOATFIN ♦ LL ♦ 2» 

-DXft ■ FLOATIM + LL ♦ 2I*RX - X/FL0AT(2*(N ♦ LL 1 ♦ S) 

SNGU1670 

1 1 7 



DXR - CONST-RX - X/ITWO«CONST ♦ ORE > 

SNGLI670 

J J Sw 


- 

-RATIO • FL0AT(2*(N + LL) ♦ 1I*RX 

sngi 1 7nn 

1 i 9 



, 


RATIO B (TWO*CONST - THR)*RX 
Lt.ll,i,-i 

SNGLt7tG 
1 7 7n 

1 2 1 
1 22 



I •• LL ♦ i 

00 2 J « l.LL 

SNGL1730 

1 7HG 

1 23 



I . I _ , 

—CONS-L.-* CONST.- ONE 

SNGL17S0 

<«Kir;i 1 7 Aft 

1 2S 

126 

c- 

-- — CONST ■ fLOATtl ♦ N ♦ 1) 
fAC » C0NST*l«X 

SNGUI7.70 

1 27 

L2« 

c> 


DXR ■ fAC - OnE/IOxR ♦ FAC) 

-RATIO “..flpatj2»jn t n - n«Rx - one/ratio 

SNGUI790 

t 2-? 
iJt) 

1 Jl 

1-J2 

1 J J 

1 34 


2 

RATIO -ITWO-CONST - tH«|*RX - ONC/RATlO 

continue 

SNGL 1810 
SNGL I B20 



P'sHHl » SMALL 
.JllL.fm SMALL»RAT|0 

SNGL1830 
SNGL 1840 

c- 


-CONST B F10AT12»1N ♦ LL) + 1) 
CONST ■ TAO»CONST - THR 

SNGL 1850 

1 Jb 

c- 

-L- 


-const « FL0AT126N + I ) 
.J7 0..3._.i°L,l ,T) 

SNGL1870 
SNGL 1 830 

1-7 

J3 8. . . 



I » L ♦ 1 

DO 3 J - tjL 

SNGL189D 

<sKjr;i iQnn 

I 39 



I B I - 1 

SNGL 1910 




-CONbT » fL0AT(2*r ♦ 3) 


1 4 1 

P2 



const b const - TWO 

•jiSJ.Ll.L.TTPSU ItJl_L_PSm»l I*C0NST*RX 

SNGLI 930 
S N G 1 1 0 4 n 

1 H3 

1 HH 


3 

CONTINUt - . 

JL « absf.IPSI ! 1 ) ) 

SNGLI 950 

1 H5 

.I_46 



IF(A6SF(PSII2) ),GT.A8SF(PSHnn XL • ABSFIPSK 2 )) 
A1 “ PSl(|)/XL 

SNGL1970 
S N G 1 1 9 8 D 

1 H ? 

1 Ha 



A2 BPS! (2)/XL 

Factor b one/< xl*surtp i i thr*rx*& t - 

SNGLI 990 

1 44 

1 bO 




5NGL2O0O 



• ♦ ((THR»kX»*2 - ONE)»AJ * A2*RX)6»2)> 

DO 4 iBi^H 

SNGl2o1 0 

Sngi 7n7n 

1 b 1 

152 



P S I ( i ) B F A C T 0 H • P S I ( i ) 
HOLD B PSI H ) 

SNGL2030 

|53 

15H 



FAC B PSIt I )/jpSI ( I )**2 ♦ CHim»*2) 

PS I 1 I 1 B FA C »p S ! 1 I ) 

SN6L20S0 
sngi 7nAft 

IbS 

IS6 


H_ 

CHI 1 n B FAC6CHI 1 i ) 
.CONnNUE 

SNGL2070 

SN6L2080 

i 5 / 



FAC B oHE/(ONE ♦ RX»»2) 

GR U ) B-RX * FACbRX 

SNGL2Q90 

1 S 7 
160 
16 1 

162 



Gill) » FAC . “■ — 

CONST _« ONE 

SNGL2) to 
SNGL2 1 20 



00 S I B2 ,N - -- 

•CpNST__B FLOAT_tI) 

SNGL2 1 30 
SNGI 2 t 40 

16 3 

1J>H 



CONST B CONST + ONE ■ " 

RXN B CONSJbRX 

SNGL2IS0 

1 65 

166 



fiEN « rtXN - GR 1 I - ] 1 

?AC_ ? 0NE/(DEN««2 ♦ 6I(I-M**2) 

SNGL2) 70 

SNGL2 1 80 

1 67 



GRII) b-hxN ♦ FAC»0EN 

SNGL2 1 90 
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168 


01 1 t > 

- FACogI ( loll 

SNCL2200 

J69 


S CONTINUE 

SNGU221D 

J70 


FR 

« REALFIINOEXI 

SN6L2220 

|71 


FI 

> absfiaihafi INOEXI 1 

SNGL2230 

J 72 


FAC 

» FR*«2 ♦ FJ»»2 

SNGL2ZH0 

173 


IFIFAC 

t<]T.0t0P6) GO TO IB 

SNQL^Z&O 



ENR 

■ FR/FAC 

SNGL226D 

17S 


ENt 

•-F 1 /FaC 

SNGL2270 

1 7fc 


Z 

• X»S0RTF (FAC ) 

SNGL2260 

»77 


YR 

• X»FR 

SNGL2290 

1 7fl 


Yl 

= X*FI 

SNGL2300 

17V 


FAC 

■ 0NE/(YR»«2 ♦ YI*»2) 

SNGL2310 

IQO 


RYR 

» FAC»YR 

SNGL2320 

itn 


RYI 

b-fAC»Y I 

SNGL23.30 

182 


DYR 

B ZER 

SNGL23‘iQ 

183 


l)YI 

e ZER 

SNGL23B0 

1 (IH 


I r U»GT .ORE AT > GD TO 60 

SNGL2T60 

1 Ht' 


K 

• 5 ♦ IFIXFU) + 5*IFIXF(EXPF (ALOGFIZ/TWOI/THR) ) 

SNGL2370 

1 86 


IF 1 2»K 

,LT.B*N) go to 7 

SNGL23BO 

187 


FAC 

• TrtO*Yl 

SNGL2390 

1 U 8 


IFIFAC 

•GT. FIFTY! GO To 60 

SNGL2<(Da 

109 


FAC 

» EXPF.lFACI 

SNGL29 10 

l-JQ 


Cl 

=-HALF*FAC + half/fac 

SNGL2920 

1 V ! 


UR 

» HALF»FAC ♦ HaLF/FAC 

SNGL2H3C 

1 V2 


FAC 

a TW0*YR 

5NGL29‘«0 

1 V3 


CR 

• blNFIFACl 

snglzrso 

J 9H 


FAC 

• ONE/tOR - COSF(FAC) ) 

SNGL2960 

1 Vb 


OYR 

■ FAC»CR 

SNGL2970 

1 96 


■DYI 

» FAC«CI 

SNGL2H0O 

|97 


60 CONTINUE 

SNGL2HV0 

r ' 


CONST 

« ZER 

SNGL2S00 

1 v9 


00 6 

I ■ 1 • H 1 ' . 

SNGL2S10 

200 

c- 

CONST 

a FLOAT! I J 

SMGL2520 

201 


CONST 

a CONST ♦ ONE 

SNGL2B30 

702 


FR 

a C0NST6RYR 

SNGL2540 

203 


FI 

a C0NST6RY1 

5NGL2SB0 

209 


OR 

a FR - OYR 

SNGL2S60 

20S 


01 

a F I -OYI 

SNGLZS70 

206 


FAC 

a 0NE/I0K»*2 OloaZI 

SNGL25S0 

207 


OYR 

a-FR + FACaOR 

SNGL2B90 

?oa 


OYI 

«-FI - FACaOl 

SNGL2600 

209 


6 CONTINUE 

SNGL26I0 

2 1 0 


GO TO 

9 

SNGL262Q 

21 1 


7 CONTINUE 

SNGL2630 

212 


J 

a MAXO(K.N|a S 

SNGL2690 

7 1 3 


CONST 

a FLOATIJall 

SNGL26B0 

2 n 


FR 

a CONST*RYR 

SNGL2660 

2l& 


FI 

a CONSTaRYI 

SNGL2670 

2 1 6 

c- 

FAC 

a 0NE/FL0AT12aj ♦ 3) 

SNGL26eo 

717 


FAC 

a ONE/ { TWOaCONST a ONE 1 

SNGL2690 

2 1 8 


OYR 

a FK - FAC»YH 

SNGL2700 

219 


OYI 

a FI ♦ FACaYI 

SNGL27 JO 

22C 

c 

00 8 

1-J.Nl ,-t 

SNGL2720 

221 

c 

I 

* J ♦ 1 * 

SNGL2730 

222 


DO 8 t 1 °N 1 « J 

54612790 


c 

1 

a 1 - 1 

SNGL37EU 
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22*1 

C- 

— — CONST 



SN(;L 2760 

225 


CONST 

FR 

- CONs”if - ONE 

^"..CONSTeRYR 


SNGI277D 

_?20_ 


F I 
OR 

■ CONST»HYt 
» DYR ♦ FR 


SNGL2790 

22 V 
730 

23 j' 
732 


01 

FAC 

« OYI ♦ FI 

_. «■ 0NE/(0R**2 + DI*«2) 


SNCuislO 



DYK 

^DYI 

■ FR - FAC*DR 
FAC*DI 


SNGL283a 



a CONTINUE 
GO TO 9 


SNGL2esa 

2 3b 
7 3 6 _ 
2 3 7" 


9 CONTINUE " 

_ CONST » FLOATFIN + 2) 


SN6U207O 

c 

00 1 1 
I 

I»N,I,-1 
N.* 1 


SNQL28.90 

>39 

?H0_ 


00 1 1 
I 

u » i.N 


j 5NGL2V)Q 

? H 1 
2 *2 


7 1 GN 
ARS 

a-TiW* ~~ 

„ » A» 


SNGL293q' 

2 H 3 
7'i‘i , 
7 V‘3 

... 

- --- - 

AIS 

- . 

• AI 

.. ?.0R 


SNGL29S0 
" - SNGL 296H 

C- 

u t s 

----CONS r 

« 0 1 "" 

-Fi=PAT(I ♦ II 


SNGL2970 

7 4 7 

? vfl 

?49 
?S0 
2b » 
?b,2 


const 

_FAC 

“ CONST - ONE 
CONST»RX 


SNGi-299b 



DXK 

.. FR 

* FAC - OME/(DxR ♦ FAC) 
_f .CONST *R,Y.R 


SN6L3010 


FI 

OR 

■ CONST»RYI 
» OYR 4 FR 


SNGL3T30 

2 3 


Oi 

FAC 

- 0 Y t ♦ F I 

_» ONE/tURo*2 + 0I*»2» 


SNGL3a50 

2 b b 
7S4 _ 

2S7 ' 

75U 

/bV 

260 

261 

?i2. 



oyk 

0 Y I 

“ FR - FACTOR 
-“FI + FAC»P I... 

• 

SNGL307C 


OH 

01 

- ENK»dYR - ENI«i)Yt 
■ ENR*DYI ♦ EN1«DYR 


SNGL3Q90 


CR 

Cl 

« DXR - OR 
_ “ - 0 I 


SNGL31 IQ 


DR 

01 

* GHl I) - OR 
_“_Gi (I t ,:;.0I 


SNGI.3l36~ 

7 6 J 




FAC 

TR 

« 0NE/(0K«*2 ♦ bl*«2) 
• F AC* I CR»0« + CI*DI) 


SNGL3i5Q 

76& 
^66 ___ 


TI 

AR 

■ FAC* (Cl *0R - CH*DI » 
TR*P5J II ) .t TI'CHKI) 

■ 

SNGL3170 

2 o / 
764 


A1 

CR 

• TR*Ch 1 III ♦ Tl*PSI 11) 
P Y R_ E N R • D X R 


SNGL319Q 

26 V 
22 0 


Cl 

OR 

■ OYI - EH j. DXR 

_ 5 . 0 YR - (fNR»GRU) » ENI*CI(ln 


SNGL3210 

37 1 
372 


Dl 

FAC 

“ OYI - (ENR*Gl(I) ♦ ENI*CR(I)) 
■> 0NE/(UH«*2 * 01»»2) 


SNGLSzio 






SNGL32H0 

2?H _ 


TI 

= FAC*(CR*OK * CI«Dif 
_“-FAC* ( C I •(}« - CR*DI) 


SNGL32S0 

3 7b 
276 


OR 

BI 

* TR*PSI (I) - TI*CHI i I ) 
■ TK*CKl t II + Tl*PSI ( 1 ) 


SN6L3270 

27 7 
778 

it* 


All .1) 
All i2> 
R I 1 1 t ) 

* AR 

* A I 

* BK 


SNGL3290 

BN0L330S 

SHUtlsIo 
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zao 



81 1 t21 

■ Bl 



SNSLSSZO 

281 

C- 


-FAC 

" FL0AT(2*1 ♦ I ) 



SNGL3330 

2UZ 



FAC 

T^-PfCONST - OUE 



SNSL33R0 

28 J 



SICR 

■ SIGR + TIGN*FAC»(AR - BR) 



SNGL3350 

28<» 



SI61 

■ SIGI ♦ TIGN*FAC«(AI » BII 



SNGL3360 

28b 



EXT 

■ EXT + FAC«(AR ♦ BR> 



SN6L3370 

286 . 



GO TO 

JUMPO. ( 10. 1 t 1 



SNGL33eO 

287 


10 

SCA 

» SCA + FAC»(AR**2 ♦ AI»»2 ♦ 6R**2 ♦ 

BI**21 


SNGL3390 

288 




FAC 

• FLOAT! 1*1 1+2) )/pL0ATU61 > 



SNGL3800 

?09 

c ^ 

• " • 

-A 1 

» FL0AT(i*(l+2)l/FU0AT(l*ll 



SNGL3810 

’90 

■ . 


Al 

_«(TW0*C0NST - ON£J/(CONST - ONE 1 



SnGL3h20 

29 1 

c- 

^ “ 

-A2 

» FL0AT(2*i*l i/FLOAT( I*( I*n ) 



SNGL3830 

292 ■ 



A2 

■(CONST - 0NL)*(C0N5T + ONE)/CONST 



SNGL3H40 

291 



RPR 

■ RPR + AI*('AR*ARS ♦ AI*A1S ♦ BR*BRS 

♦ BI»B1S) ♦ 


SNGL38&0 

798 



1 

A7*(AR.6R*AI*BI 1 



SNGL3860 

2 V5 


i 1 

CONT 1 Nue 



■■ 'SN6L3H70 ■' 

796 



GO TO 

20 



SNGL3H80 

2 ?/ 


15 

COiJTlNUt; 



SNGL3890 

^98 





OYH 

- 2ER 



SNGL3S00 

299 



DTI 

• 2EH 



SNGL3510 

3C'a_ 



CONST 

• FL0ATF(N + 21 



SN6L3520 

IJ 1 

c 


00 1 7 

1 ■ K 1 1 , - 1 



SNGL3S30 

J ^ 



1 

■ N + 1 ~ 



SNGL3S80 

ID 1 



00 1 7 

J ■ 1 .N 



SNGL3SS0 

308 




I 

■ - 1 - 1 



5NGL3b60 

lC.b 



TIGN 

■-T IGN 

) 


5NGL3S70 

i06 

-- 


ARS 

“ AH 



SNGL3580 

VJ7 



AIS 

*» A I 



SNGL3S90 

308 



BRS 

a BR 



SNGL3600 

309 



8 I S 

» 8 I 



SNGL3610 

1 1 0 

c » 

***** 

- CONST 

■ FLOAT ( r + 1 1 



SNGL3620 

11 1 



const 

■ CONST - ONE 



SN6L3630 

3 1 2 



FAC 

■ tONST*RX 



SNGL3680 

3 1 1 



OXR 

■ FAC - 0NE/(DXR ♦ FAC) 



SNGL3650 

318 



FAC 

*= OXR/ (GR{ I )*«2 * G](I)*«2> 



SNGL3660 

3 1 S 



TR 

a FAC*6R ( 1 ) 



SNGL3670 

3 1 6 



TI 

a-FAC*6l ( I ) 



SNGL36Ba 

3 1 7 



AR 

a TR*Psi ( I ) - Tl *CHl ( 1 ) 



SNGL3690 

318 



Al 

a TR*ChI ( I )- ♦ TI *PSI ( I ) 



SNGL3700 

3'9 



«R 

a PS I ( 1 ) 

» 


SN6L37 10 

323 



81 

a CHI ( 1 1 



SNGL3720 

32 1 



AU.l) 

a AR 



SN6L3730 

122 



A 1 I >2) 

a Al 



SNGL3740 

323 



8(1.1) 

a BR 



SNGL3750 

128 



8(1.2) 

a Bi 



SNGL3760 

32b 

c- 


-FAC 

a FLOAT! 2* I ♦ 1 ) 



SNGL3770 

326 



FAC 

a TWO*CONST - ONE 



SNGL3780 

327 



S t G R 

a SIGR ♦ TI6N*FAC*|AR - BR) 



SNGL3790 

328 



SIGI 

a SIGI ♦ TtGN*FAC*(Al - BI) 



SNGL3600 

329 



EXT 

a EXT + FAC*(AR + 0R) 



SNGL38 10 

130 



GO TO 

JUrtPI .(16,17) 



SNGL38Z0 

331 


l6 

SCA 

a SCA + FAC«(AR **2 ♦ AI**2 ♦ BR**2 ♦ 

Bl*«2| 


SNGl3830 

132 

c- 


-A 1 

a float ( 1 • 1 1 +2 ) ) /FLOAT { I ♦ J ) 



SNGL3880 

333 



A i 

■ITA0*C0NST - 0NE|/(c6nST - ONE) 



SNGL 3850 

338 

c- 

••• 

-A2 

J*_F LOAT ( 2* 1 ♦l)/FLOAT(I*(I+i)) 



SNGL3B60 

33b 



A2 

“ICONST - ri,-i|F. )•( const ♦ ONEI/CONST 



SNGL307O 

- — 







— . . 


_ . . . ... 
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334 


RPR ■ RPR ♦ A|«(AR*ARS + AI«AtS ♦ BR*fiRS ♦ ♦ 

SN6L3680 

317 

138 

-12. 

1 A2»(ARoBR*Al*Bn 

CONTINUE 

SNGL1890 

SNGL3900 

319 

310 

20 

GO TO 20 

continue 

SNGL39I0 

SNGL3920 

m 

3H2 . 


SI&R o-T ! GN»S I GR 

SI6I *-TIGN»Sl61 

SNGL393G 

SN(;L39H0 

313 

311 


SIGHA • SNGLFI ISIGR**7 ♦ S 1 G I • • 2 ) • RX 2« ARE A 1 } 
; TjfV06tXT*RX2*AREA 

SNGL3950 

SNGL3960 

3HS 

314 


OEXT »■ SNGLFicEXTI 

XKX > 5NQLF(X» 

SNGL3970 
SNGI. 397 A 

347 

348 

21 

GO TO JUriP2, (JJ ,22) 

_CSCA • TrtO«5CA*RX2»AREA 

5NGL3980 
SNGL 3799 

349 

350 


OSCA 5NGLF(C5CA) 

_CC_A_0 a CEXT - CSCA 

SNGLHO.00 
sNcmp 1 Q 

3b 1 
352 


QABS a SNGL.F (CCAli ) 

CRPR a CEXT - F 0 U# RpR« R X 2« ARE A 

SNGL1020 

<3 N R 1 1 n 3 n 

353 

3 51 


ORPR a SN6t.F(CHPK} 

,_C9STHE a lOEXT, l}HPRl/(QEXT - QABS) ' ■ 

SNGUlOIC 

SNGL10&0 

355 

356 _ 

. 22 

ALBEDO a i«0/(l.0 ♦ OABS/QSCAI 
..RETURN 

SnGI.1060 

SNGL1B70 

3 5’7 


END 

SNGLioao 


PHTiS TARCiET ■ ■■ 





‘ 






• 
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LtE-*LS I N 202 *TPFS. TARGET 

‘i‘ SugR^u’tiNE" Target" 

2 [N_C L U D E GEO H , L I S T_ 

^ ,J,K,t,NI,N2»NUMBER, 


7 

6 

9 

IjQ 

iT 

1 2 

15 

1 

lb 
1 b 
17 ' 
1 a 

1 9 ■ 
20 

2 I ■ 
2 2__ 

'21 

29 

2b 

26 

27 

28 
29 “ 
10 
U 
12 
13 
ljl_ 
lb 

16 

3 7 " 
ie_ 
19 
90 


dimension PDUH(3)',XDUH(3r,XTDUH{RJ 

JE*ANGEUI_,Y1 , Z| ,X2,Y2,22)»SQRT( (X2-AI ) • *24 I Y2- Y 1) ( Z 2«Z 1 )**2J 

ATRIG(XI,YliZI.X?,YZ,z2,X3tY3,Zi)a ‘ 

* SWilJi ,<Xl* I Y2.Y3 )*x 2»| Y3-Yn+X3»(Y1*Y2) )«*2 

• +<Zl»tX2«X3l+22«(x3-Xn4Z3*IXI-X2))**2 

t ‘ ^ 1’+92* ( 23^2 1^1 4Y3* ( Z I-Z21 ) **2 


MTXIUU rU|2,Ul37u2r;U22,U23‘,U3'r.'u3'2VU33l ^ 

^ U1I»U12»UJ3_+ UJ3»U2l«U32 ♦ U3l*Ul2«U23 

• -U13»U22*U3i 7 ■u 32*U23»UI 1 - UasiurZaUZl 

I 9 159265 

HALTPI.PI/2.0 “ 

TAO Pl aPI * 2,0 
NOATA-C 


)/2*D 


c"“ 

c 




c 

_c 

c ’ 


. .Df tehmi^nation__of Coefficients for qUaoric 

egoations describing three 'dimensional surfaTes 7 

.Ji!il*i-^°NS TRA 1 NT P LANES. SKEWED PLANEs ,AN 0 


determination of view PorNf ‘vEcfoR'"COMpdNENfs 

*IiR_y!E;H .POINT _ARE^ FOR THE VARIOUS GEOMETRIES 


number of targets allowed in this program I.GP. MTARrr* 
C*.. NRING. NUMBER OF RINGS ON THE ' CONST R A I N t A N N Cl L A R D'I -sl — NTARGT L 
?... I.GEi MA X I NRI NG I .NR I NGZ 1 I 


C»*. ns’OEab tutal number oTTiErt po'inT'ar'eas on the" side surface of 
-A-. . .target _ (_, 6 E. INN 1 *NN 2 ) ) 

C«»» NTARGTbNUHBER of TARGETS ' 

C 

c 


c 

c 

c" 


cylinder 


<i I 

92 

93 
.99 
"hs 

_ 9 ^ 

S7 

98 

■ 99' 
bO 
51 ■ 

5^3 

59 

bb"‘ 


C 

C 


IPTlUNal 

NNIa igUHBE R O F VIEW POINTS ALONG ARC LENGTH 

NN 2 BNUHDER OF VIEW POINTS ALONG A xTmTd I'R E C T'i'on 

. NRINgIbNU H beR OF V 1 .^. ,P 01 NT ARE AS ALONG RADIAL DIRECTION ON THF 
uui. ^“^STRAINT ANNULAR DISK PASSING THRU POINT P I ( X 1 0 , X 20 , X 30 ) 
JCfaNU^BNUMS^^^^ViEW ^ .ARE.AS ALONG .RADIAL DIRECTION ON THE 
CONSTRAINT ANNULAR DISK PASSING THRU POINT P 2 ( X 9 Q , XSO t X 6 Q ) 
_E*P L^X.“RXD I US.^F_..ThE CYLINDER 


C 

C 

'c' 

c 

c 

c 


RCP I "RADIUS 'of fHE'rNNER' C [ Rc'lE ' 6 n 'fHE CONTR A firT“A 7 ^NUi:AR' yfrk" 
pa ssing through point p i IX 10 ,X 20 ,X 30 ) . 

RCP 2 »KADIUS OF THE INNER CIRCLE ON The CONTR'aINT ANNUl'A*? OISK 
_ .PASSInGTHKOUgH POINT P 2 (X 90 ,X 5 q,X 60 >. 

X 10 iX 2 O,X 30 ARE THE COORDINATES OF THE CENTER "o'F'TH'E~foP 

— X 9 pfA&GiX 6 n AR.|_THE COORDINATES OF ThE CENTER OF THE BASE 

. X 70 .XH 0 .X 9 n ARE THE COORDINATES Op AN "a'RB I TRAR y'Wi NT~NOT 

ON THE AXIS OF The cylinder 


FRUSTUM 


reproducibility of THi 
OKIGINAL BAGS IS POOBI 
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5^ 

'S7 

59 ' 

60 


C 

C 


JPTJON-2 

nni-nuhber or view points along arc length 

J'N2«NUHBER_OX_^1EW_,P01NTS along axial direction 


6 I 

62 

63 

6H 

6S' 

66 


c 

_c_ 

'c 

c 

"c" 

c 


67 

68 

69 

70 

7 'r 

72 
■>3~ 
7 4 
7b 
76 
77" 
78 
7 ' 9“ 
80 
t I 
87 
83 
BH 

""ab— 

86 

87 

88 
89 ' 
V0_ 
91 ■ 
9 7_ 

93 
9H 
■7 5 ‘ 
_96 
V7~ 

98 

99 

100 

101 
107_ 
103 

1 OH 
105. 

I 06 
107 ‘ 

I 08 
109 
I 10 
1 1 I 


C 

,C 

c 

_c 

c 

c 


nrih5i»optional« DOES no’t'app'ly' 

JjRUlb 2 j.N^HHEH OF V IM_P 01 N 7 ..J'JE A S _A U 0 N G ,_R A 0 lAL DIRECTION ON TH r 
u.r ANNULAR DISK PASSING thru PO'int iPZ ( XHO , XSQ , X 60 I 

_HADlb 6 aRADlU S OF ThE CONSTRAINT DISK PASSING THRU P 2 
RCPMOPTI ONAL , DOES NOT APPLY 

or jhe.jnner^circle on The contraint annular disk 

passing through point P2lX*10,X5o,X60), ■ ■■ 

JlAJiLiio»RApiys_ojK_ ThE_ cqnSTRA THRU point Pl(XlO.X2n.X3fn 

XlO,A?0,X3n are THE COO RD I N A TE s"OF ThE CENTEr“6f THE TOP 

^XHC,Xba.X60 ARE THF COORDINATES OF ThE CENTER OF ThE BASE 


X70.X80,X9n ARE THE COORDINATES OF THE ARBITRARY p'oINT NO?" 
.ON.THE._AXIS OF. the FKUSTUH 


parabq lo 1 V 


, IPTIUN.3. , 

NNI.HUHUER q’f .v'i’ew points ALoN(i”ARC length" 
„nn2»hunber of view pojnis.alon^ axlal direction 

NRI NG I »OPTl DNAL« DOES NOT APPLY 


C 

^ c_ 
C 
c 

c ' 

c 


JiRj2<G2*N_UHHEii_gF_V 1 1 W PDJ NT ,AR^AS ALONG RADIAL DIRECTION ON THF 


constraint annular disk passing thru POINT P2tX<(0iX50.X60) 
-A*U I SK«R AO 1 yS_OF JhE_C0NSTRA1NT._01 SK PASSING THRU PZ 

RCP 1 «0PT I ONAL , DOES NOT APPLY 

_KC.P7»KApiUS.0F..THE INNER CIRCLE ON ThE CONTRAINT ANNULAR DISK 

passing through point P2(XHC,X5C,X60), 

-Ai5i/2Dii!3r, are._the. coordinates of The vertex ' 

XHa.X& 0 .X 6 t> are THF coordinates’ "of The "cENf£R~OF the base 
_X 7Q,X80,_X?q ARE. THE_ COORDINATES OF ThE ARBITRARY POINT NOT 
ON THE AXIS OF The paraboloid ' " . “ 


ellipsoid' IS'phErV'is a'sPECIAL CASE! 


IPTIONtH ■ 

nni^nunber qr..yiEw Points along arc length 

NN2»NUMBER OF VIEW POINTS ALONG Pl-PZ AXlALDIREC'flOyT 
NHINGI jNRiNQZmOPTIflNAL, .DOES NOT APPLT 


OPTIONAL, does NOT APPlV' 
DDES NOT apply 


kadxnuherical value 

RCPl ,RC P2« OPT 1 ONAL . 

xia,x2o.X3n are the 

XHQ . A50,X6q ARE THF . 

X70,xe6,X96 ARE THE COORDINATES OF ThE ZERO ■herToIaN 


coordinates' of The" center 
coordinates of The pole 


PLANE 


c 

c 

'c' 

c. 

c 

c 


IPTI0n«5 
NNI mNUMBER of 
’ OF 


VIEW POINTS along P|-P2 LINE 
view PoiwTS along" P2-P3 line' 


NN2»HUM8ER 

NR i NG I , NR I NG^«0PT_I pNAy , DOES NOT APPLY 
RAD«"HU«LR I CAL V ALUE "op T I 0 N AL . DOE S NOT "aPPLY 
«RCP2»Q PT 1 ONAL f DOE.S^ N0T_APPLY 

the Following are pi,p2,p3 re's'pe'ctVv'ely ^ 

Xlp,X2(l,X3n ARE THF COORDINATES Of A CORNER OF THE PLANE 

the coordinates of The next corner. 


X40 ,X50 , X60 are 
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I 12 
I 13' 
I IM 

■ i 'ls ■ 
1 16 

■ U 7 
I |fl 
MV 
120 
Ml 
122 
12 3' 

I 2V 

125 

126 
127 
) 2d 

I 29“ 
I 30 

m 

132 
I J3 
I 3V 

i 3 b“ 

1 36 

137 

138 
i 39 
t HO 


CLOC K WIS E ABO UT_TH E PlIINE , LOOKING IN THE DIRECTION 


or THE negative NORHAU 

X70.X8B,K9o are the COORDINATES OF THE THI RD C ORNER* 

croCKWiSE'ABQuT'THE PLANE, LOOKING IN THE DIRECTION 


OF THE NEGATIVE NORMAL 


annular disk 


_1PTI0N»6 

nni»nuhber'5f‘ v'iew' points 


IN arc direction 
IN radial DIRECTION 


NN2n„UHBER OF VIEW POI NTS 

NKIirGl'rNRrNG2»OPTi'oNAL, DOE'S NOT APPLT 

RAD!SK»0UTER radius of the disk 

RCPl«’lNNER RaEh‘us”oF THL ANNULAR DISK 

RCP2 = OPTION^L, UOES NOT APPLY . 

'xiO,A2C.X3rt are" THE COORDINATES OF Pi, 
XN0,XB0.X6n IS A POINT ON THE DISK, P2« 
■ ■ >h6h' PI-P2TTINE’ IN 


center of the DISK 
VIE W points are counted 
R r 6 H TTh an d“- r ule sense with its norHaL 


X_7G,X(j3,X9n ISJHE DI RECT ION CpSlNE OF THE POS ITIVE NORHAL 


IQ 


CONTINUE 
HDATA«NDATA+ 1 


RLAD 7s,2&iT )PTIONrNNl,NN2,NRlN6liNRlNG2’,RADlSK,RCPl,RCP2,RA0ISU 
IF MPTION.LE.nl RETURN 


"rEA"d 1&,2S2)' Xli>Tx2f:,X30.X‘10,X50,X60,X70,X60,X90 

WRITE ( 6.201 )_NO_ATA 

WH I f E ' ( 6 i 2& I ) "l PT I 6N.NNi,Nhl2,NRlNGl,NRlNG2,RA01SK,RCPl,RCP2,RADlSU 
WRITE (6 ,2 52 > XIP.X2 C.X 3O.XR0,X50.X66,X7 O .XBo,X?C> 


|HI 

I ?_ 
MJ' 
MH 
ivs' 

I 46. 
'lH7 

149 
1 50 _ 
lBi“ 
|S2_ 

153 

154 

155 

156 
|57“ 
158_ 

" I’SV 
160 
161 ■ 

16*3 

„ J. 

~ 1 6 5 

I 6 6_ 

1 67 


NTAKGT-NOATA 
IF INNI.LE.il 


NN l^nl 

NNJs 1 

I) NKlNGl"!. 
IF (NH"ING2'.LE,1 > NKiNG2»T 
NAREAlNUATA.l )»NNl»NN2 


IF 

IF 


(NNZ.LE. 1 1 
( NR nib I .LE 


Ti^eaIhi; ata .2 > bnni*nriNgi 
^A_RE A ( NU A T A , 3 1 »NNI «NR1N G2 

'radi'sk^abs ( rad'isk'i 

JICP l^AdS I RCP M 

RCPZ-ABS t HCP'2 ) 

IF t IPTI0N.EQ.41 


GO TO 901 


NiB| ,a/F loatinni ) 

N2"1 .C2FL'0AT(NN21 


90 I 


GO TO 902 
N I ■ 1 tO/F LOAT ( NN21 


902 


N2« l.O/FUOAT C NN 1 I 
L“SQKT( (X4 0-Xlf. X50~X20)»*Z*IX60»X30I«*2) 


IF 

IF 


(IPTiON.EQ.l .0K< 
(1PTI0N.EQ.2) GO 


, 1PTI0N<EQ.6) 
To 802 


GO TO 801 


801 


IIPTlON.Ea.3] 

TO 9C3 

rad-kadi SK 
GO TO 9C3 


IF 

GO 


GO TO 803 


802 


rao»ikadisk-raoisu)/u 
RBO NDU ( NDATA l -RAPISU 

GO to’ 9ci" 
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1 6 & 
» 6 » ' 

170 

171 

_LL 1 _ 
I 73 
I 74 _ 
i ’75 
176 „ 
I 77 

■179 
1 8 0 _ 

1 8 r’ 

IU2 .. 
i 8 3 

184 

1 06 
1 08 
IB?” 
I OH 
I 89 
1 VO 

ivl " 

I 92 
193 
1 94 
1 V6 

.L 96 „ 
1 97 

1 yn 

1 99 
200 
70 I 
7C2_ 

20 3 

?J 4 
7U6 
206 _ 
207 " 
2 D 0 __ 

209 

210 

2 I I 

21 ? 
213 

7 1 4__ 
216 
2 16 
21 / 

21 B 

2 I 9 

220 

221 ' 

22? 

223 


803 R ADn (RAO 1 SK°o2 ) /L 

903 RBOND { NOATA > sK AD 1 SK 

IBO DYI N U A TA>»1P TI0N 

OATAlMDATA'i iT 
DATAINDaTA > 2 ) 


»NNI 

»NN? 


DATA ( NDATA , 3) «L 
-£A P A .lA , 4 ) . RAD 
DATA I NUA {A »S ) >Xin 
DATA(NyATA,6)«A_2(} 
DAI A (n5aTa', 7 1 =.A3fl 
DA TA ( HU A I A 1 a X 4 O 


906 


data (HU at a , 9 1 »X6n 

DA TA (HO AT At 10)nX6n 

DATAUIDaTA I I n=X7fi 

-PAI* tjlp A T A t 1 2 I “XRO, 

0ATA(N0ATAiI3|bX90 

BH I N H p A T_A ( I B £ P | 

RRiM 6 (HDATAt 2 )B(?CP 2 
_L^.. ( IBT imj.NE.2l 

CONtHT»L ” ~ 

.CVI»(XIC-X4Q)/C0NEHT 

CV2= i X20-XS0) /COHEHT 

C V3 “ j.f 3 C “ X 6 0 )_ / C 0 Nf HT 

ADD'h T •.COfitHT ARAD J SU / ( H AO I SK"RAD I SU 1 

.X J C = X 1 r< +cy I •ADDHT 

X2o>»X2C + CV2*AD0HT 
X3S-X3C»LV3*ADPHT 


G O TO 905 


CONTINUE 
B I »X4Q-X IQ 
B'-*X63-X2n 
_H3«X60-X3g 
E 1 »X7 J-A 40 
.E 2 «X 8 C-x 6 i 3 _ 
E 3 bX 9 (}-X 60 ' 
R 1 »X7C-X 10 


R2«X80-a20 

- 9 30 

BMA 0 >SG|KT{aie» 2 «B 2 ** 2 «B 3 ** 2 >~ 
..F ^ l< T j E 1 » « 2 -»E 2 • «_ 2 ■* E 3 • *2 
RHAG» 6 (jRT(RlB »2 + R 2 »» 2 ‘»H' 3 »* 2 r 
ON-s) ini. n 1 .100 


* ■ ^ ‘ t t > * I » t uu 

iOl BETA = AC0S(Bi/( iai«*24-B3a«2)o*.5) ) 


!£IB p 1 03 1 103, 1 n? _ 

102 BETA--DLTA 

J-?l_ JB|.T''*HALEP1 - ACOS ( 0 2/BMAG I 
I I 1 “COS ( THEf A } •COS (BETA ) 
il2 -Sl N(THETA) 


I J3»-siN(BETA ^•CQS( theta ) 
I2l—SlU(THETA)*cpS(BE_TA) 

I 22»C05 { THETA I 
I 23ns 1 N ( THETa ) •SJALI beta > 

l3l»51tJ(UETA-l 
I 32» 0»0 


I 33»C0S"('bEf A ) 
_rtRlTE( 6 , 202 l 
NKl Tt ( 6 ,/c,3 I 111 


,112.113 
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ZZ** WRITEI6,203) 121,122,123 

226 ' WRIT'El6 72d‘3l 13! ,t32.l33 

2Z<> 1-1 I 1»X10*1 12«X2flt-l 13«X30 

227 J«121*XIQ-»I22»X2n*I2’3*X30 

2 28 K-131PX10*132» X 2 n*133»X 30 

22’ JF ( ! PT I ON-Hl I a"? , 1 I a , 1 OH 

230 jO‘LIflilPT'lUN-3) 105,108, !0S 

731 ■ ■■■ " '105 'iF(iPnoN-2) ■io6,io7,io6 ■ ■ 

232 _ J C6 C I - 1 Z I • « 2+ I 3 1 •• 2 

233 ' C2-! 22*»2,I 32»»2 

2 3 H O - I23»»7+I33»«2 

2 35 CH«'2.0»( l2l»f72»!3l«rr2T — — ^ 

234 , C5 = 2 , S» ( I 2 I • I 23+ I 3 I • 1 33 i 

237 C6-2.0+1 I22»l23+J32-i33r 

2 38 _C7*“2,C.« ( J+ I 7 1 +K*I 3 11 

23’ C8--2;0* (J- S 22 + «* I 32 ) 

2 H 0 C ? “ - 2 . C • I J • I 2 3 + K «J 3_2± 

711 CONS I « j • • 2 + k • • 2-R AU • * 2 ' ' 

_ __ iyni 1L(6.2DH) 

2H3 go to’ 109 _____ 

2HH 1^0^_C1“-(RAU*I 11 |««2+I21 + 

2 HS C2--(RAi 3»1 |2|';*2Vl22V;2 + l32**2 

2H8 EZ--JKAU* II3la*2+I23**2+!33»*2 

2h 2, ' CH“2.o* i-RAD»V2« f 1 I • 1 l"2 + 1 2 1 • I 22 + 1 3 1 « I 32 > 

?•<» . _ .C5.2.c*l-KA0».2,H|.j|3+I21*I23+I3l«I33| 

2'-’ C6»2,Q*(-RA0»«2«li2»i ?3+ 122* I 23+’l 32- 1 33 ) 

250 ..C7*TZ.C * < - 1 *KA0 «»2* I! I + J* I 2 1 +K- ! 31 ) 

251 C8»-2.b*(-i»RA0.«7« I l2+J»122+K*r32J~' ^ 

7 52 £.1 IT-^^ 9 T ir ^ •KAU»»7»1 I3 + JOI23 + K-133) 

753 cdNSr»-Tl»KAbl* •'2 + 7* * 2 + kV »2 ~ 

75H -I^RJ TE. t 6 , 205 ) 

7bS ”■ ' 60 TO' ICV ' : 

754 108 C 1-121 P + Z + IOlxa 

757 “ ■c2-I27-»2+i32,‘«2" ■’ -■ ' 

2 58 C3-I23*-2+l33««2 

2 59 C H - 2 . s'* I fz i » I 7 2 ♦ 1 3 J ♦ I 3 2l _____ 

740„ ; CS- 2,0*U21«123+13I>1331 

74l CA-Z'.ii [ r22» 1 23+ I 32*i 3~3r ' 

7 62 !18.?2-KAl)/2 ,0 

2«-3 ef»-2.0-(J»72|+K*13fVRAb2*i 11 )" 

7.4 H CS -»2.C-1J*122 + K«1 32 + RA02* 1 12 ) 

7*5 C9-»2,c»Tj» 1 23 + K » I 33 + rT|)2*I 13) 

746 CONS r-J-»2 + K»* 2 + 2«C*RA02* 1 

7 67 ■ “ wRiTEi't.a'cir "■ ■ ^ 

2 48 109 1T R1 TEI 6 ,607) Cl . C 2 . C 3 . C H , C5 , C * , C 7 , CB , C9 .CONST , RBONO I NO AT A » 

7 4’ » .RBONOU'lNb’^fAJ 

770 XOl-L*bl/BHAG 

?M X02-t.,B2/BMA6 — — __ 

272 X03-1. »B J/BHA6 

273 ■ XlH-'XHf-xdl 

77H X25»XbC-X0Z 

27&“ X36-X40-X03 ■■ 

274 C I l-I 1 1 

277 CIZ-lTZ ~~ ;; 

2 7 8 L}.1* • 13 

279 CBASE-iii-XHO+MZ^XbO+ll 3-X60 
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280 


CEND«I 1 1«XI94] I29X259] t3*x36 




281 

282 


MftITEC6i208) 

WRITE(4,209I ClI. CI2. Cl3i CENO.CBASE 




283 

7BH 


0 1 SKEU< NOATA . 1) >iC 1 1 
DISKE(J(f<0ATA,21»CI2 




2Bb 


DlbKE0(O(;ATA,3)>C13 




286 


0ISKEmm>ATAi9)»-CEND 




787 


0|SKEm4(0ATA,BlB-CBASE 




788 


NCRIN8(130ATA, i }:>nR1UG| 




2 8 9 


NCRlNb(NUATAi2>>>ilRtMG2 




2V0 


DKANG-7 .fi»P I «N 1 




2V| 


OPH I C ( NOAT A )=DRANG 




792 


RRCP1«RBUNOIODATA)-RCPI 




293 


IP nPTI0K.E0.21 RRCPl-RBONDOINOATAI-RCPi 


t 

S’t, . 


RRCP2aRbUWDJM0ATAl-RCP2 




79S 


IP (NKlGGI.LE.a .OR. IPTION.GT.2) 60 

TO 

922 

1 

?96 


DRJ»HHCPl/FL0ATtNHlN6l) 


, 


797 


GO TO 92b 




29 3 . . 

922 

OR 1 =r.o 




? vv 

9 2S 

IF (I3KING2.LE.0I GO TO 923 




jOQ .. 


UH2«RHCP2/FL0ATINR1NG2) 




3 '31 


GO TO 92H 




111? 

923 

OK2«G.O 




UJ3 

929 

00 930 JJ»li2 




30 9 


IF (JJ.EO.l «AN0. IPTION.gT.2) GO 

TO 

930 


3 OS 


IF <JJ.L0.2) go to 931 




304 


DRnOR 1 




30 7 


RHE AN.RCP 1 +DR/2.0 


' ' 


3 0 8 


NRGaNR I NG 1 




309 


GO TO 732 




3 

931 

UR»0R2 




31 1 


RMEAN=RCP2+0«/2.n 


• 


3 1 2 


NHG»((K I NG2 




3 1 3 

932 

do 920 KK" 1 .NRG 




319 


CRI NG INOATA ,KK t JJ) bRHeAN*ORANG»DR 




3 IS 


RHE ANC ( NOATA ,KK , JJl bRNEAN 




316 


R«t AN.RHE AN+OR 




317 

■9 2 0 

CONTINUE 




3 1 8 

930 

CONTINUE 




319 


UI2XBt)l/BHA6 




3 2_0 


U12Y»82/0MA6 




321 


UI 22«83/BMAG 




322 


P12Ut2Bhi«ui2x«R2«Ut2Y9R3*UI22 




323 


P1PAX»PJ2U12*U12X 




329 


PtPAY=PI2Ul2«U12Y 




32S 


P1PAZ«P12UI2*U12Z 




324 


PI3HAX*K1-P1PaX 




327 


P13HAY«R2-P1PAY 




328 


P 1 3HA2»H3-P IPAZ 




329 


PI 3H ARRANGE (P13MAX»P>3MAY,P13PAZt0.at0*0t0.0) 




330 


UA3X*P J 3HAX/P 1 3HA 




331 


UA3Y«Pl JMAY/P13MA 




3 32 


UA32-P 1 3MA Z/P I 3MA 




333 


U25XbuA3Y*U122-UA3Z*UI2Y 


• 


339 


U2SYbOA 3Z«U 1 2X-UA3X*Ul 2Z 




1>6 


U»SZ«UA4A»0l*V«UA.3y»U|2X 
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IT X«TK£K (^NDAT A , I . 2 I ^XhG 

ftYilHEf- (NdATA.2,2)+XB0 
TTZ«TKEK(NDATA,3,2I+X60 

SSX«SKt M ND A T A t 1 * 2 1 ♦XMU ‘ 

SS Y»SHEf ( ND A T A , 2 , 2 I ■fXBU 

SSZo'BKEF ( ND AT A r3 ,'? ) ♦Xi'd ^ 

rtR{ TEI 6.9HI) TTX.TTY.tTZ.SSX.SSY.SSZ 

IF nPItON.GT,2) ” GO TO 921'“ 

IF", t IPT10IJ.EQ.2) _ RSAVEsRBOND (NDATA) 

IF I IPTIUN,E(}.2)' RBONOCNDAfAl-RBONDlilNDATA) 

TRE F (NDATA. I , lloRHOiJD (NDATA) «UA3X 
THEF iNDArA72,'Ti»R8d'NU|N0A’fM*UA3Y 

t NI>AT A .3 I 11 nRJlONp ( NDaTA ) »UA32 

SREF ( NDA T A I i , I I «Rfl6Nb ( NDAT A'j«y25X ’ ' ~ 

SHEF (NUATA ,2 , 1^ 1 « R^OND I NO A T A » • U2S Y 

'SrEF i NUA TA iT) ■’rBON'd (fjOATAl *U2SZ ’ '* “ 

IF I 1PTI0N. EU» 2I R80ND t NDATA » «RSAVE 

I CONTINUE ' — — — 

WSJ^TE (6,333) 

GO TO'U2 

.1 ! C._C L“iNN AG» I I I ) • •2*BhAG»*2* ( I 2 I ♦•2-f. I 31 ••2) 

C2»IrmAG»1 12)««2'+8'hAG** 2*'( rZ2*i2 + l'32*«‘Z) 

C3»IR NA 0 • I I 3 )_♦ • 2 + Hm A^ • 2 « ( I 2 3 • » 2 ♦ I 3 3 • ♦ 2 ) 

C'l»2.0*(kMAG»»2«! 11*1 lZ"+8KAGo'*2i(I2lVl2'2*l31.*l32) > 

£^"2,0* («I1AG*®2* 1 I 1 • if 3 + aHAG* *2* ( I 2 1 o 1 23+1 31 *133 1 ) 

C6»'2.a*(HMAG»*2*li2*l 1 3 + bH AG • • 2* ( 1 2 2 * I 23+ i’32 • I 33 1 ) . 

• O*(RHA6*»2*I*!Il+0MAG**2*tJ*I2l+K*I31)) 

C8»-2.0*(KHA&**2»f*li?+aMAG**2*(J« I 22+K*132) ) 

C9»- 2.G» < RHAG »* ?» 1 • I I 3 + BMAG**2* < J. I 2 3 + K+ 133) 1 
CONST • (KnAGM 1 •'•2 + B«AG*'»2 *Tj** 2 + K**2 ) - ( 8MAG*8fl'A6TT62 
__ 

WrTteY'6 ,20 7 ) 'c I ,C2 fciiCR ,C5,C6,C7,C8,C9 ‘,cONST 

5'* • TE (^6 , 333 ) ‘ 

GO~TO 1 lY ■ 

111 C I»X23»£3+X8D«B3-XSC«r 3 
C2*>X3'3*El+x"9o'*b 1-X60«R 1 
C3"Xla»E2 +X7 o*S7-XH0*R2 

■C0NST«XlC*(X6o'(ixpC-X&O*'X96) + X2OTnW<rx90^iY6O»')r7'0r+X30*IX5O*X7O-X‘*0 

l*X80J 

ARITE(6,21 1 1 ' 

X I A»X I C + XTO-X HO 

X2A"X20+'xBa-X50 

X3A = X3C+X9Q-X6Q 

OATAlNDAr'A’. l*T)ixi A 

data (N0ATA,15|bX2A 

'OATAINDATAf 16)»)(3A ' ^ “ 

HUAt«ATKlG(XlO,X2fl,X3OiXRO»X5O,X60,X7Ot X80 iX9o) 

P L A 2 » A T'k i (i'lX To .”X 2D ,X3o,X70,X80»X90 .xTA-f X2 A » X 3 A I ^ 

I'‘DATA)«PLA1+PLA2 

HR i TE ( 6 , 6 I 2 ) 'c I Vc 2 , Cyi'cONsTTPlYRTAT n'dA UT 
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392 


WRlT£(6i333) 


393 

U2 

iFINl-I.OItl3«l|3tl0O 


39H 

t 13 

IFIN2-1 .01 1 IM, 1 iM.lOO 


39S 

1 19 

IFIlPTIOll-b) 115,152.100 


3V6 

lib 

tFUPTIUN>6) 116.139,152 


39? 

1 16 

NUHBEKbI ,0 


3VB 


EXBl»h3*t2”B2»E3 


39 9 


EXU2«b 1 « E3-B3.E 1 


9>jT 


EXB3-H2*E 1 -0 1 »E 2 


MO 1 


E)!bMA&»tfcxai».2*EXB 2« • 2 + E XB 3**2 1 . 5 


MU2 


HXLXbl«b’3«<R3«El-Bl*E3)-8 2«<BI*E2-B2*EI) 


MQ3 


BXEXfi2sUl»iBI*E2>B2*El ) ~B 3 * 1 B2*E3-e3»E2 ) 


mqh 


BXLXB3sb2*IU2»E3.H3»E?!-lil*(B?*E!-Blo£3l 


MQ5 


EXBM«EXb 1 /EXBhAG 

1 

mCi6 


EXB5«tXb?/tXBM6(i 


MO? 


EXB6«tXU3/£XBHAG 

i 

MOS 


F P H I <■ P ! » 11 1 


m09 


LOftU i M = C , 0 


Ml 0 


R«1 .0 


M 1 1 

117 

GHa'g»N2»L» I R».5 1 


"* J 2 


UPL 1 M«U.n2»L 


H 1’3 


IF IGbAG-L) 1 18, ton. 180 


4 i H 

1 18 

G 1 »(,HAG»H I/BHAG 


MlS 


G2sGMAG*U2?BMaG 


M 1 6 


G3«&H.AG«B3?BMAG 


Mi 7 


IF(IPTIUN-I) 120,119, 120 


M 1 6 

1 19 

RAO I Ub»KAD 


Ml 9 


FGMAG* . b»N2»L 


M2Q 


AREA»M,0*FGHA6*RAOIUS»FPHI 


MZ 1 


GO TO 123 


M2Z 

120 

BMGHAG=( (Bl-Gl )»»2*( 87-62 )»«2+<B3-G31«»21*»,5 


M2J 


IF 1 IPTION -2) 122,121,122 


mzm 

121 

HA0IUS"KAD«BM(,MAG 


m2& 


FPKRbFPH 1 *RAD. ( 1 .n*RAO» *2) ••.5 


M2& 


ARLAoFPKR*! UPLIH-LOWLIH 1 * 1 2 » 8 *BH A G-UPL I H-LOWL I H 1 


M27 


LO«L!M»OPLIH 


M 26 


GO TO 123 


'12 9 

122 

KADIUS-byHTIRAD.BHGMAG) 


M3Q 


RAb»HAD,.2-M.n»ARS[RAO)*lL0i«LlH-BHA6) 


M31 “ 


RUG « RA0«»2 - M.n»ABStRAO) *tUPUIH - BMaS) 


M3Z 


FPfiAO 1 FPHl/t6.n«KA0) 


133 


AREA «FPHA0»{RAG«»1»5 - RUG»»l,5) 


m3M 


L06LIM ■ UPLIH 


M 3b 

123 

Ha 1.0 


M36 

121 

PHI a (2.0*M - l.Rl»Nl*PI 


m3? 


IFIPHI - T*0P1 1 125,138,138 


M38 

125 

N a ABS 1 1 ./TAN IPHIl ) 


M3V 


BXfcXBH a 1 IBXEXBI«*2 ♦ 8XEX02«a7 « B XEXB3* *2 ) •• • 5 J/N 


MMO 


bXEXBM a BXEXBl / BXEXBH 


mM 1 


BXEX85 a 8XEX82 / BXEXBM 


mm2 


bXeXb6 a 8XEXH3 / BXEXBM 


mm3 


KHO a KAUIUS / (N*«2 1*0 )««,3 


MMM 


RVXP a RhD • (EXBM * BXEXBM 1 


mmS 


HVYPaKhU* < EX85+8XEXB5) 


MH6 


RVZPaHHO* IEXB6+BXEXB61 


MM7 


HVXM*Kh6o ( E XBM-BXE XbM ) 
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•tia flVYn»KHO* (CXB&-BXEXU&) 

hhi? hv 2 hxkho«" (EXBa-HXEXBiJ 


ni-.o RVXSEBaKAO lUS* BxEXBR/N 

4^,1 “ ‘VVY»tB«KAO 1 US* BXEXB5/N 

4b2 RVZHEB*RAUJU5* 8XEXB6/N 

H&3 RVXtB*KAU I USVL xBR 

HbM _RVYtH-HAU I US*EXbS^ 

RVZEa»KAD IUS*EXB 6 ‘"' 


•4&A IFIPHI U26, t2A, 177 

4b/ ■ ■'jZi '>(RlTE(i,2l5) PHI 

4bB (lO T O lwD_ 

4bV' 127 IP (PhT'- HALFPl) 128,129,130 

HtO 128 RVX ■ KVXP _ 

46 1 RVY • RV YP 

462 RVZ ■ RVZP 

46 3 60 "to’ 137 

46S 12 V RV X n RYXEB 

46b ■ " RVY « HVYEB 

. 16 '- __ _R^ » RVZEfi 

467 ■ 60 to 137' 

468 _ 1331F IPHl-Pl 1 131,132,133 

4 6'v "■" ijf Hii X '» 'rv'xh 

■,7B HVY»RVYM 

4 7 1"““ 'HVZ ““k'v/H 

472_ _ _50 TO 137 _ J 

4/3 " r32 RVX a“-Kv’xBEB 

4/R __ RVY ■ -KvYBEB 

4/5 ' "r'vZ '"■'*''- kVZB£B' 

<; 7 6 GO TO 137 

4 V 7 133 IF IPHl -PI*I.S) 13*1,135,136 


R ' ' 

1 34 

RVX B -KVXP 



4 /V 
490 


RVY ■ -KVYP 
RVZ >• -KVZP 



481 


GO TO 137 



4 42 

135 

RVX B -RVXE8 



4d3 


RVY B -KVYEB 



48 H 


RVZ B -kvzeb 



H cl ^ 


GO TO 137 




1 36 

RVX « -KVXM 



487 


RVY B -HVYM 



4(ia 


RVZ B «KVZH 



48V 

137 

VPl ■ X4Q - Gt ♦ RVX 


. 

4V0 


VPZ B X50 - 62 + RVY 



HVl 


VP3 B X60 - 63 ♦. RVZ 



4VZ 


iYRtTEI6,2 14)NUH8ER« VPt , VP 2 » VP3 , A RE A 



4 93 


NF 1 XbNUMBER 



4V4 


VECTOKI NOATA.NFI X, 1 )BVP1 



4 Vb 


V£CT0K(NUATA,NFIX,21»VP2 



496 


V£CTOKINOATA,NFIX,3I=VP3 



4 V7 


VARE aVnO AT A '.HF”! X 1 bAREA 



4 ?8 


MU«BER=NUMQER+ 1 



49V 


mWh* i'.o 



500 


60 TO 124 



bOl 

136 

R B R + 1 .0 


* 

'iQZ 


IFIGKAG - L 1 1 1 7 > 100, InU 



hU J 

t'Jv 

nCTmbeh «i'.o 
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S 0 H FTHET* « TWOPI 

iuS ' PHIO ■ 0.0 

506 F » l. n 

5Q7 IHO Z ■ UO 

PHII » t2.0»F - l.Oi •Pl«Ni 

' 5DV IF (Prtll - T«OPI ) I'iltlOO.lOO 

5 I C M{ the ta L^T_<voPJ »(2.n»Z-l .0)«N2 

511 ph"i2» P'Y *F« N1 

S I 2 D A R 1 = H H A (i » • 2 • ( C 0_S_J.P H 1 0_) I • >2*BHA6 «»2*(Sl NIPHt OJ^ \*_*A 

511" * 0ARF*K«AC,.»2* rC0S«PH12) 1»«2 + BMAG»«2» ( S 1 N ( PK I 2 ) ) *«2 

514 LOViLlM = bMAG»RHAG«HHAG*COStPHIO)/S(}RT(DARl J , 

5 15 UHHH = t}MAG-KMA6*RMAG»C0S (PHI 2) /SORT ( DAftp ) 

516 ' **2_ . - .. . - 

517 ~ ” 0»2 . 0»H(tAG« < BHAG**2 -KmAG*»2 I 

51 H (^_HJ;1ALj»«2-BMAG*«2 .. 

519’ 161 Yf" ( Alls (bHAG-RMAG ) YlT. I .OE-IOI GO TO (43 

570 R| T llSCeKhiAG>F THETA/ (4.0«BHAG«*2»CJ 

'.ii HF T a"i’iC*KH AG*FTHETA» ( S . a * A *0 -B» • 2 I / I B ,0 •BH AG* * 2»C I 

’>72 CxrB»2.3«C* .UPUH + li . - 

S73 CXIUb 2.3*C» LOWLItl + B 

524 KJFL*5(JtUlA + B.UPLlM*C*UPLIH**2l 

525 RIlL-bORI I A 4-B • LOWL I H + C • L 06L I H* *2 ) 

■j 2 6 FAR E A_= R h _T « 3 C *.iCi.FB _• R l£ U - C X 1_B «RTH. ) 

527 1 f" I U~ilA(i.rRMA6 1 i42il43,l44 

52« L4?._ -Ct-C .. L: L 

529 NUHARG-R 1FL*UPL I M.3QRT (CC)*B/ (2.0«SQRT ICC ) I 

5 30 UENaRG-RT IL?L0nLL4*.SQRl I CC ! *6/ 12,0*S3RT {£,C.tJ 

531 SAKEA* ( I .0/S(jKT I CC ) ) »AL0G (NUMARQ/OENARG) 

5 T 2 G O TO 14 5 

5J3 143 AREA =• KMAG • FTHETA • lUPLlH - LOWL|H> 

5.14 GO TO 146 . 

535 ' ‘ Y'44 ASF’ARG*-{2.0»C*Up\iM + Bl/si}RT( 8**2 - 4.*A»C ) 

536 1/ SORT! B**2 - 4.»A*C ) 

537 ' CC'»’-'C 

538 ■~AKEA»» ( I.C2S URT (CCn»lAS| N ( A S F AR G > »*S 1 N ( A 5 1 ARG ) > 

539 145 AREA »’KAHEA ♦ ’rftVbcVSARe’a" 

540 1 46 D AHQ » .RMAG*«_2 _» .COS t pH I I /2. > *»2. .♦.0HA_G«*2 • S I.N I PH I I /?.• 

541 o'ttBH’At,»RHAG/SaKT(DARO) 

542 Aj »0*S I M PHl.t 22.” !.»R 1 /RHAG . 

543 - ~A2iD*SlN’(PHrr/2."ri’*R2/RHAG 

5 4 4 A3»0»S|HIPH I 1/2. 0 ) .R3/RM A0 

5 45 0AN6«0*’»2* ISI N (PH I 1/2.0) J ••2»C0S( THETA 1/2.0) 

5 4 6 ,_S.P S ? 1 . 0 E - 1 0 . . 

54?” IF'~(AbSlAi).LT.EPS.AND.ABStA2».LT.EPS) GO TO 301 

54 8 IF IAbSlBl>.L T.EPS.A ND.ABS(B2) •LT.EPSl, G0_ TO 302 

-54V OET = A 1 •d2“A2«B I 

5 5 0. S»B 2 »QA NG/DET 

551” T*CA2»B'J’-A3»a2)/DET 

552. Ua-B 1 ♦DANG/DET ! ! 

553 ’ ”V”VA3»ei-Ai*B3)/D£T’ 

5 5 4 P » T •»2*v.»2+l. 0 

555 ’’ ” Ci'»2 . C* 1 5* T*U* V ) 

556 RaS ‘‘a + Uo «2 - I0» 51N( PH; 1/2.0) >»«2 

"Sb7 IfTthETaT Trtcjpi ”l r47Vl47 , 1 48 

5 5 8 _ _ _ 1 4 7 _Q D » 1.0 _ . _ . „ . 

559 "go" TO 1 49 - - - - 
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5«0 

198 

QO 


1 

199 

G3 -loQ 6 OD « 1Q»*2 • 9«0*P«R l«**S )/(2.0 » P) 


562 


G2«U*V«03 


563 


Gl»S6T»G3 


S6‘< 


GO TO 320 


56b 

30 1 

G3«DAMG/ A3 


566 


FFl-Bl 


S67 


FF2-Q2 


568 


HH l*>“U3*Ci3 


569 


66 TO 3C5 


570 

30 2 

G 3 * n • D 


57 1 


FFl-Al 


572 


FF2BA2 


573 


HHl=0ANG 


57H 

305 

HH2=ID»SiN(PHIl/7.C) 1*»2 -g3»*2 


575 


IF 1 theta 1 -TWQP I J 306»306i307 


5 76 

306 

tJD«l .3 


S77 


60 TO 309 


S7b 

30 7 

Q0«- 1 .0 



309 

IF 1 Ail5 (f FI 1 •UT.EPS) GO TO 311 


«> ttO 


COEFCaFF 1»*26FF2*«2 


561 


COLF 1 F 2»HHl /COEFC 


5«2 


COEF2 = 1 HH 1 •»2-HH7*FF 1 *»2) 7C0EF0 


QtnHjjjjll 


6 2»C0t.F l*0D»S0HT ( AHSICOEF 1«*2»CQEF2H 


565 


61«(HH|-hF2»62)/FFl 




GO TO 320 


^ B 6 

31 1 

62«HH 1 /FF2 


5 6 7 


61»00«5VKT1ABS1HH2-G2»*2n 


568 

320 

CONTI NUE 


559 


X9l»2.0»X10-X9Ci 


590 


X51«2.0»X2a-X5Cl 


59 1 


X61«2.0*X30>X6Q 


592 


AX1MA5-1.C-0*COSIPHI1/2oOI/BHAG 


593 


AX 1 1 »AX 1 HA6*B 1 


599 


AXI 2 »AXlHACi«a 2 


595 


AX13»AXIHA6»B3 


596 


.VP|oX91*AXll+Gl 


597 


VP2»Xb 1 *AX 1 2+62 


596 


9P3»X6 I 6AX I 3*G3 


599 


2*Z + 1 .0 

► 

600 


!FITH£TAl-2.0*T6aPI)150tt5l«151 


601 

150 

6R| TE16 i219)NUM3ERt VPl t V P 2 t VP 3 , ARE A 


602 


NF 1 XkNUHUER 


603 


VECTOKtNuATAtNFl)l*l>«VPI 


609 


VECTOtllNDATA.NFIX ,2)«VP2 


605 


VECT0H(nUATA,NFIX,3)*VP3 


606 


VAREAINOATA,NFIX)«AREa 


607 


NUHoEK b number * 1*0 


608 


50 TO 191 


609 

151 

PHIO » PH12 


6 1 0 


F = F ♦ 1 . 5 


6> 1 


GO TO 190 


612 

152 

NUMBER » 1.0 


6 1 3 


aOOTE B b 1 •£ 1 ♦B2»E2*B3«E3 


619 


ARLA«til»N2»S0RTl ( 8 H AG »EH A G 1 • ♦ 2 -BOO TE » *2 ) 


615 


HOKa 1 ,0/N 1 
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«I4 

4 I'l. 

6 I 9 
- A 20 
&2i 

623 
629 
625 
6 26 
6 2' r 

62a 

629 
6 3 0_ 
6 3)" 

6 3 3" 
634 
63b 
6 36 
6 3 7 ' 

6 i ”... 

6i9 

640 

64) 

642 


VERT- ) »0/N2 


)S3 


V-l .0 
J.? ! • 0 


154 0)oN)»(H-.5)«bI 

Q2-N)«tH-.5)»H^ 


03«N)«(h-,5)*B3 
-ILf 2 • t_v - , 6 ) • f: JL_ 
*2=N2«i V-.5 ) »e2 
..*3»n2« ( V-,5 ) »E^ 
VP)«X40+6)-«) ' 

VP 2«Xbl.»*ft2-B7 


VP3BX60»n J-Q3 
Jial TE t 6 I 2 ) 4 (NUMBER i._y.£i t VP 2 . V P3 . A RE A 
NF ) X«NUflUEH 

VEE TOH,(NDATA,NFI)i,l! -JVP J 

VECTOR ( UUATA , NF t X .2 ) -VP2 

_V-E,CJpR{N|)ATA_iNF.lij3 !-y£3 


I 55 


VAREAINOATA.NF JX)«AHEA 
NUHbER = NUHB_ER+ I ,n 
HbH* ) ,Ci 

.tFlH-HOK) |54,)54 iISS 

V « V+ ) . c 

I E i y-_y. c K I U ^ 1 J s^i Afi 

CONT)NUt 


>33 

.6.g_IJF_( )PTl0H.LE.5.) . 

CAUL oisx IOiNO’aTA ,'pduM,XOUH,XTOUM,IH|T) 


fio TO 699 


690 


643 
6 44 

699 

continue 

IF ( IPTION.EO.S) GO To SO) 


645 
6'- 6 


COEF (NOATA 1 1 ) -Cl 
-E.'IEF I.NOA TA i2 1 aC2 


6HH 


C0EF(N0ATA,3)*C3 
-EOtF (.NDATA ,4 ) «C4 


aso 


COfcF (UDATAiBI.CS 
COEF tNDATA,6)BC6 


/>bl 


cbEF)N0ATA,7l»C7 
.COEF (ND ATA , 8 ) =C8 


653 

6?4 


COE'f(NOATA, 9)«C9 
.COy;J NDATAj( ID 1 -CONST 


&S6 

SOI. 

GO TO 5C3 
00 5C2 I2ER0-I .6 


&5 7 

6S8 

502 

COEF ( NOA TA 1 IZERO) «C,,0 
C0EF(Nl)ATA.7)-CI 


6 b V 

660 


tutF INbA1A,B)»C2 
-?9.E.F(NDATA,9I«C3 


6 6 1 
662 

5C3 

COEF 1 NOATA • 10) ■-CONST 
CONTI NUE 


6 6 3 

66H 


IF npilON,df.3) GO TO 500 
PP 360 KK-.I .2 

1 

6 6b 

666 


IF (KK.EO.I .AND, IPTlON.GT.2l 
V.RLTE)6,3{,| )_ UK 

GO TO 360 

6 6 7 
668 


IF 1 KK .EO . Z I 60 TO 35 I 
_N_R G ■ MR I fj G I 


6 6 9 

i7a 

35l_ 

GO TO 352 
NRG=NR)Ng2 

■ 

tt 7 1 

352 

DO 370 J J« 1 . NRG 


- , 


... 
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4,72 
673 
67H 
6 75 
676 

67fl 
67V 
660 
6(i 1 
6 U 2 

6 a 3' 
6 HH 
6B5 
6tS6 
SB 7 
6hfi 
6UV' 
6 Vu 

691 

692 
6 V 3 
694 

6 45 

696 

697 

698 

699 

700 
' 7 'oT 

702 

703' 

7Q4 

705 

706 
7qT 
708 

7 09 

710 


WRITE(6,362J JJ.RHEANC(NOaTA ,JJ,KK» .CRING«N0*T*,JJ,KK) 

370 CONTINUE ; 

360 CONTINUE 

500" CONTlNUt'" 

GO TO 10 

2Cl FORMAT « IHI ,lx • 25 HINPut DATA FOR TARGE'T'nO. »I3 /J 

?02_R5RMAT 1/25H TRANSFORMATION MATRIX ) 

203 FORMAT ! 5616^6' I 

„2C4 F0RMAT(/30H COEFFICIENTS FOR A CYLINDER ) ’ 

205 F0KMATI/30H COEFFICIENTS FOR a' CONE ' ■""l 

206 F ORMATI/35H COE FFIC IENTS FOR A PARABOLOID » 

2C7 FORMAT! ’6H ci k , El2.6 / 6H C 2 » •'"£ 12*6 / 6H C3 ■ 7 El2s6 / 

« . EI2.6 / 6K CS « , EI2.6 / 6H C6 ■ , £12.6 / 6H C7 • 

2 • E12.6 / 6H CB « , E12.6 / 6K C9 a ,'Ei2'«6~~/'” 9H CONST a • 

3 EJ 2. 6 , / 1 

6C7 FORMAT! 6H C 1 a , E12.6 / 6H C2 a , bH C3 a . E12.6 / 

L-6H « E l 2 .6 / 6H CS « , EI2.6 / 6 H C6 a , £12.6 / 6H C7 a 

2 • EI2*6 / 6H CB a , Elf, 6 / 6H C9 a ,'“E12T6 / 9H CONST a I 

Ei2*6 / 30H RBQNO ( nDATA ) I RB 0 NOU ( NO A T A ) , 2E12.6 / ) 

208 FDRHATI/HGH COE FF K I ENT's' FOR "cON S TR A‘i nT ' PL AN£s" “ ““ ) 

cn_a , EI2.6 / 7H C12 ■ , EI2.6 / 7H Cl3 a , 

I E12.6 / 9H CENO a , " '1 12 . 6"V‘ ' 8H crASE- . Er2T6 1 

210 FDKHAH/3 5H C OEFFICIENTS FOR AN ELLIPSOID ) 

ill F‘OHMAf(/3"OH COEFfI cl E'n TS f6r”a'‘pLANE “ j 

2L2 FOSH AJ !. AH Cl a , E12.6__/ 6H C2 a , E12.6 / 6H C 3 a , EI2.6 

1 / 9H CONST a , Elf. 61 

A >2 ..format^ ah Cl a , EI2.6 / 6H C2 a , £12,6 / 6H C3 ■ , EI2.6 

I t 9H CONST a , El2.6,y ,Z4H AREA OF' PARALLELOGRAM a.EifTSI 
2i9. FORM AT (3X , F.S . 0 . 5 X . 4 H VP I a , £ | 2 . 6 . SX . HH VP 2. . E 1 2 .6 . 5 X . 4H VP 3a . F 1 2 . A . 

• aX,5HARLAa,Ei 2,6) 

f£HMATI / 7H PHI a , El 5,5 ) ‘ \ 

2SI- format isimVvx ,7Fs."h) ' ^ T 

j IGFB.hj V "7' 

333 FORMAT (/i I X , 35HC0 MPON ENT 5 “fOR™ I E *' PO'i NT "VEC'TO'^ ) 

9*11 format 1 I X .36HREFERENCE POINTS ON CONSTRAINT DISK ,3X, 

• 2MT! ,3FIC.5V2h”i .5X‘,fHS'r.3FI0.5",2’H 1,7) 

361 f^HATl/,23H- nN_cg_NSTRAINT DISK NO. , I I , / , I 2X , 7H RMEAN .IBX.MHAREA) 

362 F0RMATU5i3X,EI2.6,8X,El2.6'l 

END 
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LLL.ALt) 


1 

2 
i 


IN202»TPFS.TRANSF 


SUBROUTINE TRANSr ( X i XP , V , VP , J M , I OUT » 


THIS PROGRAM TRANSFORMS INPUT IN X-COORp SYSTEM TO X-PRlME SYSTEM, 
IN AND lOUT REFER TO COORO SYSTEM, 0, CENTRAR SYSTEM, 


I, LEFT PLUHE coordinates, 2, RIGHT PLUME COORDINATES* 

y^GHA OEaSURES SETrtEEN X 1 -AX I S_ AND _X I P-A_X I S . ‘ 

PSI MLASORES from X 2- A X'i S T Po'T A'T E S ABOUT Xl-AXlS 
XAND XP are position VECTORS, V ANO VP ARE VELOCITY VECTORS 


COMMON /Ta0PLH/PP(2.3) ,S1G(2I,PSI(2) 


dimension X{3),XPJ3),VI3I,VP(3I,XSI3 

I «_RITL«0 _ _ „ 

’ IPASSaO ' - • - " — ■ 

DO £0 1=1,3 


xptii.xni 

VP ( 1 I »V ( 1 ) 

X s ( n » X ( I) 

L.vs ( n =v 1 n, ■_ 

if UN,Eu,'i OUT j" 

_IF _UN.tO*0> 

if II0UT,E0»6i 
GO TO 3Cr, 


• TRASFCRM from 0 TO either I OR 2 

; SIGMA = SIG( lOUT J ^ 

PSlHipSi ( lO’UT]' 

DO no 1 = 1,3 

) PPPI 1 |aPP( louf ,I ) 

SINS=bIN(SlGMAl 


COSS = COb ( SIGMA 1 

_3INP»SlN(PS!Hf„ 

COSPaCOblPSlKl 

I* >•< * * » )“PPP (A>.l.?CpSS+ t X (2 I-PPP I 2 
i *- 1 X ( J ) -PPP ( 3 ) ) »S fNS*COSP 

XP12 laIX(Z>-PPP l?))o C0SP*-<X( 3j^-PPM 3 
XP 13' 1»U ( 1 » “PPP ( I ) ) *5 IN5-TX (21 “P’PP l'2 

J t t 3 I -PPP 13 1) •COSSoCOSP 

VPI II aV’t’l I *COSS + V I 2 I ♦SlNStSI NP'-V I 3)« 

_ ^P_ l.2.( =V(2)*C05P + V,(_3 ) • 5 1 MP 
VP I 3 ) = V n ) *5 I NS-V T2) »C 0 S 5 »S IIJP + VI 3 >»C 0 S 5 eC 0 SP 
IPASS=IPASS*i 


GO TO 3-0 

• TRAN5F0KII FROM I Oft 2 TO 0 


) SIGMAaSIbl IN) 

_P5_1H = PS n.ijii 

bo” 2 1 a i = i,3 

! pppii )=PP( iN,n 


5IN3 = 5I H (SIGMA I 

___COSS»COb I sigma) 

’'siNPaSlNlPblHl 

, .C0bf»C0b ( PS I H,1 

) Xp'(l)B Xll)»C0S5 ♦xoT 

X P I 2 ) = X ( J I * S ! NS fSl NP *X I 2)«C OSP “ X tJJ > 

Xp'l 3 ) ='-A.l 1 i'*’s l’NS*cbsP*X l'2 ) ‘S i NP*Yi 3T 
VP(l)aVll)«Cn55 , -frVOl 

VPl2t= vll )»5INS*SIMP+V[2)*C0SP-VI3) 


) .VSI3) ,PPPI3I 


GO TO BOO 
G O TO ion 
GO TO 200 


1 >«SINS«SINP 

;^*SIJ^P 

') ) •COSS»SI NP 

sTns#<:osp 


»SINS ♦PPPIll 

^ S ,• S IN P*P P P(2I 
Vc o's S * C d's P ♦ P P P ( 3 ) 
*SINS . 

•COSSeSlNP 
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56 

‘ 57 ~ 

58 

' 5 V" 

60 


VP(3)«-VU »®SlNS*C0SP*V(2)oSINP*V(3>*C0SS*C0SP 


IPASSalPASS*! 

60 TO 3C0 

C --- T'RAW'SFOKM'FRbiTT' 
300 IF (iN.Ly.O .OR. 


TO 2 AND Vice VERSA 

lOUT.eQ.QI 


SO TO 500 


6 I 
62 
63 
6 H 
b 5 
66 
6 T 
68 
6 V 

70 

7 I 

71 

' ri' 

7 8 

75 

76 

77 


320 


520 


6 C 0 
6c'l ■ 


IF < IPASSieQ.n) 60 TO 200 

2^ 2) 60 TO 500 

DO' fab' uT,3’ 

XI ! laXP t I I 

V i n »VP 111" - 

GO TO ion 

coirfiN'Oe ‘ ■ 

DO 520 1«1,3 

XI I )=xsn I ■■ ■ 

VI i ) ovs I [ ) 

If ' 1 liVhlTE'i'eir, I I ’ ~ so TO 600 

KETURh 

<vRTrt ■■(■6r6o'i ) I X ( 1 > 1 1 a 1 .3) t ixPiT ) .i«>i .3) , i vt n . t .3 1 , 

I V PT 1 ) . l «l ,3) .INilOUT 

f'oKHAT I7ho"x“'xP b,2<3fB.‘I, 2X) ,7H V V P ,yi~3F'e . 8 , 2 X I , 7 H I N-OUTa , 2 1 2 ) 
return 
twi) 


PH f , S' vTLh I T~ 
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LEE»AU61N2D2>TPFt.VFEHlT 


5 

6 

7 

« 

V 

_L°_ 

1 I 
12 
1 .^’ 

• 1 
15 
J ^ 
17 

1 B 
19 
70 
/I ' 
22 

2 3 

2 H 

2 b" 

26 

2; 

?«_ 

29 

30 

31 

32 

33 
3H_ 
3b ' 

36 

37 

38 

3 9 ■ 

<ttL 
"s 1 

H 2 

H3 

HH 

S 6 


SUBROUTINE VFEMIT tl 0 , X , A .EAREA » 

■ jQ” 0i T 0 R EA O INPUT 0 A T A , 0 F J H E_ ^ I_^T T Nq SURF A_C^ 

IO«l, TO GIVE location X ANO DIRECTION A OF THE EMITTING RAY 
dimension X(3),A(3).P|I3 ).P2I3).,P 3 ( 3 ) , D C ( 3 ) • S I 3 ) 

DATA P 1 * TrtOP I .haLFP I 23 . 1 *U59 , 6.283 I 8 t" 1 «57C79/ 

iXJ_* X ?. * X 3.ijr 1 .V 2 ■ Y 3 I = S_Q R T.yxi-Yl)*» 2 *ixj-Y 2|6«2*(X3-Y3>«>«2) 
HTX(XH,X12,X13.X21 , X?2 , X 23 , X 3 I , X 32 i X33 j' «' X It »X 2 2« X33^ X 2 J 6 X I 3 « X 32 

* *XI2«X23»X3.|-XI3.«X22»X31-X1|»X23»X32-X33« X12«X2I 

IF IIO.NL.O) 5Q jQ 200 

NEMIT«3 


• • « 

« • « 
• » • 

i’c’c 


I I G 


HVKITE«C ' 

JAfAf_iiJfur PART,. 

"lEMli iuEfjf IFIts' THE emitting SURFACE,"' SAME a 1 ' 1 P T l'6?g“'l'iPr^ G eT 

J-tflllol .. half cylinder. 2, HALF FRUSTUM.^ 3,9, HEMISPHERE^ 

5, parallelogram, 6 , ANNULAR DISK, - - - 

Z.i_FJJLL cylinder, b, full frustum, 9, sphere. 

READ (5,191) lEMlT . 

-_‘jO._TO < I ! G , 1 2n , I 30 , I Hn. ISO, 160, I 1 C I 120, I 30) , lEHIT 
PI ON TOP, P2 ON bottom, C IS FROM P 2 To Pj' ' 

,<b,I? 2 ) RI.(PI II),I»l,3) ,(P2n),I»i,3),{0Cm.lBl,3) 

H-KANGE 1 PI ( n ,P t ( 2) ,P| 1 3 ) ,P2( l") ,P2 (2 ) ,P 2 ( 3)') 

H2 = R I 


I > 5 


I 20 


RMEANkrY” 

_RL = R2_ ' 

c I » I p n I )"-p~ 2 i I )T/h " 

I p * ‘ 2 ) -p 2 I 2 
C3«(P1 (3)-P2(3) l/H 
F AoKhEAN»Pl8H 

Ir ( ieh'i'tVg'ew) 

G O T 0 18 1 . , 

DC IS PLKPENd'iCUlTr t’o PI-P2 a'XIs 7 eXTENDrN"G~FRdM"‘P2" TCT"p' 37 
JiEAO (5,192) R1 , (R 1 ( n ,.l.»l , 3) ,<P2II),!"l.3),(P3m,Isi,3| 
H<.RANGE(P1(II,P1(2),P1C3J,P2(I),P2(2),P2I3))’ 


EAR£A»2.»EAREA 


R2«P3~P2i 


il2jtN ANGL ! P3J I ) , P3( 2) ,P3( 3) ,P 2t I I ,P2 ( 2 ) , P2 I 3 ) ) 

nr t 1 3 / I k » I Li "■ •^***- 


130 


97 

98 

99 
50 
5 i* 
52 


OC I I ) « ( p j [ 1 ) -P2 ( I ) ) /R2 
_0CJ2 ) . I P3 c 2 ) -P2 ( 2 ) I /Rp 
DC I 3 ) a (P3 I 3 ) -P 2 I 3 ) ) /R 2 
_RHEANa(hI+R2)/2. 

Tvf X» ( K2-R I )/«- 

_VTX-»ATAN(TVTX) 

cvix=cdbTvTx7 
svtx*sih( vrx ) 
g’o Tci'iis “ 

C9NTINUt. 

READ 15,192) "i? 1 , ( PH I ITf" 1 ,V)7TdcTr) 'i’l “17 3 T 
FARE AaT >,0P I «R 1 »R| 


ISO 


IF tIEH)f.£Q,9) 

G q T 0 I 8 I_ __ 
NORMAL In"RHR SENSE 
READ 


EaREAb2,seAREA 


53 

■59 

55* 


- . - ... Pl-P2-rP3. 

( 5 , 192) (PUi) ,Ib| ,3).,JP2( I ) ,I»1 ,3) LtP3( I ),Iol 
H12 = KANGt ( P 1 ( 1 ) ,P I ( 2) ,P H 3 I ,P 2 ( 1 i ,P2(2) ,'P 2 ( 3) ) 
H23 »RANoL (P2( IJaP.?.< 2.)_, P 2 1 3 ) ,P31 1 ) _j_P3(2) ,P3<3) ) 


E A H E A « H I 2 .'h 2J 
.C12!«(P2( 1 )-P^( 1) l/H I 2 
C 1 22 = ( P 2 1 2 )-P H 21 1 /H ) ? 


EEPRODUCIBILTry OF THE 
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56 Ct23<IP2(3>*P| (3) I/H12 

5? C231o(P3tY»-P2'( i I V/H23' 

59 _ C232»(P3(2)-P?(2 J »/H23 

5V ' “ C233=(P3(3)-P?131)/H23 

*>.3 VHAG2 pU.I22«C?33-C|23»C232)»»2*1C231»CI23«C233»CI2I )*o2o 

6t I 'lCI2J»C?32-CI22»r23l l*»2 


62 

63 

69 

6 b 
6 6 
67 
6B 
69 
7Q_ 

7 1 
72^ 
a 

79 

75 

76 

77 
7a 
7 9 

uo 

i' 

82 

83 

89 

B6 
6 7 
88 
«9 

90 
9'f 
92 


VHAGaSQRT{VHA62) 

OCY 1 )«K122»C?33-C123»C232)/VMAG 

0C12I»1C23I»CJ23-C233oC>21 I/VMAG 

DC (3) »(Cl21*C2 3 2-C12 2*C23l‘)/VHAG 

S_L t° *51' 

C P2 Ti rjH THt oUTEr“RIM,~THEREFORe RToAB'sTP^^Pn . H ln|NNER“RAD'J lis 

L?.P (5,192) Kl.lP|<n«I-l,3).(P2n),tai,3)i(0CU),tsl>3) 

H2“RAN6tlP2( I) .P2(2) ,P2(3) ,P1( nVPrr2)‘tPil3) ) 

E AREA* I K2*H2-ri«ri)«PJ 

go' TO 18| ‘ '■ ■ ■ " ~ 

181 iftR lTE (6.195) lEMlT. R 1 . R 2 . ( D C U ) , I » I , 3 ) , ( P 1(1 » , 1 » I . 3 ) , 

• ' (P?( I > .'l»l .3~) .'(P3( I ),Ul ,3) 

60 TO 570 

“191 format (BIS) 

192 f 0RHAT_ ( ICFB.O) 

195 'format" ('////31H'"E‘Hi‘TTiNG''sti'RF'^'E [Fh 11“^, I 3 , 1 QX , YhRI,R2 o, 

! 2F8.3 , trx , 19HN0RMAL D.C. » ,3FS.9 // l6*. 5 Hpl o ,3Fe.9, 

2 5X,5HP2~« ,3Fe.‘T,5X r5HP3 "b « 3F8.9 ////» 

_ C 

C ««■ aa* aa* aaa •#» *a* •#* »«• «•« «e« «•« a • • • o O 



200 CONTINUE 

CALL KAirUOM (RNIl 

CALL KANUOM ( HN2 1 . ‘ 

"go'tO Y2J0,'220'.F3“n,'z'9Ti256.26b.2T6.'2'2(li'236TrrEMl'T ^ 

2^0 CONTI NUE 

"HELv'^HN 1 »H 
GO TO 221 

219 CALL random (RNl) 

22C continue 


93 RLoR2«SNRT(RNI 1 


99 

IF (KL.LT.Rl) 

GO TO 219 

V6 

HELV=H»{R2-RL1/(R2-R1) 

221 IF (IEH1T.E8.1 .OR. 1EMIT.EQ.21 

TH»(0.S-Rn2)9HALFPI 

9 7 

IF (lEHlT.tQ.T .OR. IEMIT.EQ.81 

THoTB0PI»RN2 

93 

C05T1! = COS ( TH) 


V9 

S 1NTK»S In ( TH) 


1 0 0 

XMl=C3»UCl2)-C2eDC(3) 



|01 ' XM2 = Cl«DC(3)'-C3'»OC( 1 ) 

1 02 XH3bC 2»DC 1 i >«C 1 *DC (2) 


> “3 bSCM=HTX 1 C I.C2.C3.UC(|),Dc(2)|OCI3>iXHt ,XM2,XH3) 

109 IF (AHS([7SCH) .LT. I .E-6) 

«HfilTE '( 6,302') jE'HlT'.Ds'c'M'icl . C 2 i'C 3 ,DC ( 1 r.'OCUT'TOcTa ) .XMl ,XM2,X«3 

(06 SP)»HTX(G.,C2,C3.C0STH.DC(2).DC(31,SINTh.X«2,XM3>/DSCH 

10^ SP2»Ht'xic'l ,0..C3.'0C ( I) ,C0STH",bC(3')",'XHl , S ['nT'H ,'XH 3 >7d SCM 

5P3= »MTX (L I .C2.0.,riC{l).DC12) .COSTH.XMl , XH2 , S I NTH I /OSCH 

I09' X ( I )'»P2 ( 1 ) +HELV»C I YrCYSpi" : 

11(3 )1(_? )fP2(2 1+ HELVaC7 + RL»SP2 

111 X ("3 ) =P2 ( 3 ) +h’eL V or 3 + RL«bP3 " 
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I >2 

n i 

Ul, 

115 

i L* 
117 

J !“. 
i i 9 
I 70 
I2l' 

• 2 i_ 

fia 

129 ^ 

125 

126 

I 2 7" 
1 2 H_ 
129 


If UEMIT.EQo? ,0ft. lEHtT.E<}c.9> 60 TO 225 

Stn-SPl 

Si2)=SP2 

Sl’si-SPi"’ "■ " 

GO TO 290 

225 XM l = C2»bP3-C3*5P2 " ; 

X (12 = C 3 • S P J - C I * S P 3 

XM3»C r»5P2-C2»SPl ^ ~~ 

ISPl .SP2.SP3,C1 .C2.C3,XM| ,XH2 .Xm3) 

IF « AHSlOSCHt .LT, I .E-6l 

l!giilIi-i9j.3p_2L. lEH l T.PSCH.Cl .C2.C3 .DC< n .0CI2) .DC<3> .xm.XM2.XM3 

b( 1 )=MT*(C VTX .SP2.SP3,SVTX,C2,C3,0, tXM2,XM3)/DSCM 

S/.?.l5.!.''j6iSPl ,CVTX,SP3,.C1 ,SVTX,C3,XM1 ,0. ,XM3)/0SCM 

S(3) “MTxISPJ ,SH2,CVTX,CI,C2'iSVTX,XHl ,XM2,0. )/DSCH 

GO TO 290 _ 

230 CONTINUE ' ' 

.^iP— 

29 1 C0bANii = 3'!; ' ■ ■ 


133 CALL_UIf yDC_ .(.OC.TWOPI I 

131 002921=1,3 

132 XJ n=Pl ( J )+Rl,A( J ) 

133 S ( i ) =A ( I ) 


1 39 2 92 C 0SAN(,eLUSANG4.Q C ( 1 1 *S ( 1 1 

135 IFlItMlI*tC(»9) GO TO 290 

I 75 — . I F • 0 0 S ANG • LJ , 0, J 5Q JO Jijl 

137 GOTOZ9C — - - 

138 _ _ 25C..C0NT I NUt 

139 D I aKNl I 2 ’ 

IIP D2»9N2»H23 

I'** XU1“P| I n*Cr2I«0t+C23l«02 

I ' ' X ? 7* “P t ‘ 21 +C ! 22»0 1.*.C232»02 

l‘*3 XI3)aPl ( 31+Cl23»6i*C233*D2 ' T 

199 _pO_TO 269 

195 260 'cONTInUL ' 

i < P2> I ) -P 1 ( n I /R2 

■ 97 DC i= i p 2 I 2 J “PT ( 2 ) 1 /ft~2^ ' ~ ' 


[9S 
199 
I 50 
15 1 

1 ' 5 ^ ; 

153 

159 _ 
15S' 

1 56 

157 

158 

159' 

160 
161 

162 

I 63 

169 

165 
1*6 
I 6'7 


•7C3=(P2(31.-P | ( 3JJ/ftZ _ _J 

261 fiR«H2»SuiKT ( RN n ' 

— -If" . 1 I 1_ GO JO 242 

CALL KANUOM (RNU ’ ‘ 

■ G O TO 261 

262 TH«TlVOP i*RN2 ' 

J".2.SJP = C0S ( TH 1 

"siNTHaSlNtTHI “ ' 

XH.! »0C ( 2 1 *DC 3^Cj 3 1 #0C2 

XM2 = DC I 3 I »dc 1 -OC { I I «DC3 ' ~ ' 

XN3 = 0C ( I )»t>C 2-0C(21 «DCl 

DSCM-MTa(DC U ) ,0CI2l ,DC(3) ,OCI , DC 2 , Oc”^ 7x^1 , XM27xST> 

IF IAdS(UbCH),l,T.I.E-fc> 

*rtft I TE 16,302) IEMI f ,OSCM ,bci I ) ,0C ( 2) ,0C ( 3 1 ,DC I , 0C2 , OC 3 , X~H I .XH2.XM3 

Pi (0. ,DC ( 2 1 ,pc ( 3.1 jCOSTH ,DC2 ,0C3, S INTH ,XM2,XH3) / OSCM 

B2 = MTXIDCU),P..0CI3),DC1 , COSTH , D C 3 , X M I Vs 1 NTH , X M 3 l'”/" D SC H 

Si_°?!LX < pE 1 Ll.«pC(7! ,n. ,0CljpC2, COSTH, XHl ,XH2.SINTH1 / dSCM 

X t 11 »P 1 ( 1 ) *B 1 «RK ■ ■ : 

X ( 2 1 =P 1 I 2 1 ♦U2.KR 

X ( J ) 1 i 3 ) •n}3»KR ■ 
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I 68 
1 69 

170 

171 
I 72 
173 
17 H 
i 7S 
I 76 
177' 
I 78 
179 


26M DO 2 6_5_I ^ »3 

265 S I I r=DC ( I 1 

290 CAL L DIFVOC (S ,HHLFPt .A> 

IF n'ttRTTttEQ.O) 60 TO 300 

NEM|T»MEMtT*l ; 

IF (NEHI T .GT. ICO) GO TO 300 

WRITE 16.301) NEHtTilX<l).l"l»31.<A<l)tI‘»li3> 

'Ho ’’ cont’i nuT 

3CI FORMAT (lOH NEKIT X A i I 1_2 • 2J RX 1 3F 8 o <11 

332 format' 1/28H lEHiT',' D SCH . " C 1 I "C 1 2' SO O'N " ' . I 5 . £ I R .'5// 1 6 'X > 9E 1 2, 5 

SOO HETURR 

ENO 


/) 


ypRr.'S vFoufp 
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HTAKtAaCK ING (K (NCHECK •L«n 

.135 CONTiNUt 

T0TA»T0T A+HT ARC A 

If_ JMTAKLA.lt. 1 ,E-8) GO TO 170 

VF = Hlf(J,K,L I/Fl6aT(Nr’AY| 

HV£=VF»LAKLA/HTARFA ^ 

53" OR ! TE “'(4 , il'l J i H 1 T ( J . kTl } , J , VF t HT A RE A , J , R VF 

CL I (IF =CL I kE* I . r. 

55 ~ IF (CL IHL .LT.DATA (K, n ) GO fo'l70 


REPROBUCIBiLrrt OP TH^ 
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66 

5?* ■ 
SB 

WRITE (6.331 


CLINE-O.S 
170 CONTINUE 


59 

hO 

TOTHJ T»0. 

00 17S Jal.NA 


il 

175 TOTHIT-ToTHIT+HITI J.K.LI 


62 

T vr -TOTH IT /FLOAT (NRAYJ 


63 

TRVF»TVF»EAREA/T0TA 


6H 

iVRiTE (6,321 TOTHIT.TVF.TRVF 


65 

laO CONTINUE 


66 

WRITE (6,13) 


iT 

190 CONTINUE 


6B 

3G0 CONTINUE 


69 

RETURN 


70 

ENO 



ZCOOKQ 



0 
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LEE- ALB 1 N2D2*TPFStZCOORD 

4 

2 

J 

bUBKUUTjNE ZCOOROTRIS 
INCLUDE D 1 M .1 t qy 

tRi • JiHtKI , JZ> 


H 

t 

C CALCULATE Z-COORD 1 NATE 6F 
ALPMAoTKETA-PhI 1 

INTERSECTION OF 

Photon path with cone 

3 

- — t.. 

IF lALPMA.LT.n.) 
COST»COS ( ALPHA ) 


ALPHAbALPHA^TWOPI 

f 

4 Al ■ M • TANETa 




a 

1 

10 


1 I 
12 
i 3 
l 4 
lU 
IJ. 

J 7" 
t « 

1 4 
20 
21 ’ 
22 

23 

24 
2b 
26 

27 

28 

29 

30 

31 

32 

33 

34 
3b “ 

36 

37 
.38 

3 9 

_4 0_ 

”V 1 

42 

43 

44 
4b" 

4 6_ 

'47 

48 

49 
bO 
b 1 
52_ 

~b3 

bH 

5b 


- - ? — ^ ' ' 7 * 2 _ 

RR • HI b ' + *W2 

R g bljRJj^RH I 

tanuth‘'» ('hr'* 

TANETAo «2 

0 » R«TAUBTP 
Q 2 » _ (J • • 2 

I F ( COST »LT tO.C) GO 


“ 2.»R1«H»C0ST 

R^1S)/(2.*h 


®R> 


156 


- TO J20 

-.C-iLUNPiLL-l'i JC K bL c T^. 0 rjLr._ONE s ide of cone array 
1 F t cosn A .GE . COAHHA { JRG n7) 60 TO J SO 

L ° JHUL A 

J2 n I ■■ 

—'J 3 ._f. 0 RbN • JNDEX ♦ I 

60 To Ibl ^ . 

L = I 


ISO 


1 b2 


no 152 J2 O 1 , JRGN 

f * - 3 _bT„t_C.GAHjHA (jl 2 ) ) 60 TO |Sa 
153 IF ( J 2 -J^^ 0 EA} 154 . 4 &,)b 6 '“ 

.Jb_ 4 _Jl_= ^'JOE.X_- J 2 

00 l&bJa},Jl ~ “ 

IiDit.TA 7 -T.A_NG?( JMQ EX-J l 


SORf ( ads tQ2-l<R»Y ) ) 
.{ U-2 IP 1 / Y 


z r p 

JS5_ZJ.^,^ 

ZtJi+lla H2(}R6N*I )*l7b~ 

G0_ TO 6 6 

C CHECK FOR noUBLE I N TERSE C f I ONsHw ff H " CO^NE ARR A~Y~ 

1A9 FA g H Ib > I 1 . - COST »• 2 ) 

IF { cob ETA ■. UT . D.'o“) GO~TO iTJ 

.00 122 JZ “_lfJRGN _ _ _ 

IF I COSeTA . gE . CGAHRAlji’)’ V o'TO 123 '' 
L.InEJA.2 - TANG2J.JZ.1_ J._ _ 


I 22 


141 


X o SORT! C6 » TANG2(j2l )" 
_1_A_6 X » TANETA / TANg2IJ7> 

n 

Jf. 

GO 
DO 


COST I / TANETA +H 
ZA1..G0 TO 123 


IF 

IF 


» 1 X - Rl 

.T...2 2 • GT 

TO 123 

-• 12 J Z . JR.G N 

< JZ . EQ , JNDEX J GO TO 12'i 
1 "CubETA . r,E » C g amma (JZ > J 
/ ( TNETA2 


CB B CA / ( TNETA2 ” TANGZIJZ) ) 

?-_f .“SORT ( CB o TANG2UZJ ) 

2A B X <• TANETA 7 TANGZlizi’ 

t X Rl • c.OST_ ) / TANETA. 

IF ( ZZ . GT . ZA I Go To 123 

142 CONTIN 11 1 

B JNOLX - JZ ^ ” 
tJl •EQ« 0 ) GO To 12S 


GO TO 142 


♦ H 


123 Jt 

IF 

C b'uNoLe PATH POSSIbEV TWQ 1 NT E K S ECT 1 ONS WITH CONEs' 
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_ ■ 00 12 ** v J ■» t>JI 

U * JNBtX • J 

Y »■ TNETA2 - .TANfi? I_L ) 

ZJP 5«KT (A'B^t 87-KR« Y ) ) 

lF(COSEYA«LT.n.O) GO YO 13t 

l(J) » <U-2IP| / Y 

?0_J0 12*) _ 

>j> Z'( Jf- "iti + ZIP'r /'y 

I2S CONTlNUt __ 

c 'bunole'"! n'tlkslcts only' ONrsfb'E of "cone' a'rRaV" 

125 JZ « ^ + 1 

J3 »"J2 ♦"JH&N - JZ 

L “ JZ 

'ibl bo' 125 J«J2iji' 

_1LJ CCiAHMA(L)_. LE . CO SETA 1 GO TO H7 

Y ■ TNETA2 - t’aNG2(L) 

ZIP » SiyhT « ABSl 07-f<R*Y n 
IFlCbbttA.'LTTn'roi 50 TO 127 

Z(JI ■» (y ♦ ZIPJ_/Y 

go' "to J26 
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'*if LT ,L 

I- OKC AKOS 







LL To(i7 

KLiayo a2/os>i 1 :m3!08>(o. 1 





ccQoa 1 

0!^J 

aFOR.S 

ATTEN.ATTEN 





o:ooo 2 

GOO 

8F0R ,5 

bl'SKiDISK 





C 'i'Uj3_ 

000 

8F0R tS 

LMITT .EHITT 





U u ^ 

coo 

WFOK.S 

LSCAP ,ESCAP 





C ^ J 

C JO 

8F0R . S 

ESCAPE .ESCAPE 





~ ^|HJ6 

oco 

WFUR , b 

FHTAPE.FRTAPE 





nr -'in? 

.. . 

-1=>F0R,. S 

J Nf'UT » I NPUT 






ooo’ 

fJFOR.S 

intkcp.inthcp 





C ■ 

aoo 

■JFUH I b 

MAIN, MAIN 





>iil 1 0 

fiob 

UFOR ,b 

«A 1 NS , ha I NS 





cc -.-ii J 

coo 

^^OR ,S 

OUTPUT, OUTPUT 





0..U!) 1 2 

uoo 

«FOR ,b 

i^UlCKP.aUICAP 





L,. :ii3_ 

rtpo 

8F0R , S 

. iCATTS jSCATTR 





.. • ij M 

oeo 

WFOH.b 

SUKTN6 , SORTNG 





n: 

OCQ 

8 F p R , b 

TARGET .TARGET 





Cr Cu 1 6 

cco 

WFOR.S 

VFOUTP .VFOUTP 





1 7... 

0-3 „ 

iJFOR.S 

_2C OORO , 2C00K0 





f.-. LI.T 

t 
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